Practical BASIC 
Programs 


Apple I1° Edition 


Disclaimer of Warranties 
and Limitation of Liabilities 


The authors have taken due care in preparing this book and the programs in it, including research, 
development, and testing to ascertain their effectiveness. The authors and the publishers make no 
expressed or implied warranty of any kind with regard to these programs nor the supplementary 
documentation in this book. In no event shall the authors or the publishers be liable for incidental or 
consequential damages in connection with or arising out of the furnishing, performance, or use of any of 
these programs. 


Apple, Apple II, Apple II Plus, and Applesoft are registered trademarks of 
Apple Computer Incorporated. Practical BASIC Programs: Apple II® 
Edition is not sponsored or approved by or connected with Apple 
Computer Incorporated. All references to Apple, Apple II, Apple II Plus, 
and Applesoft in the text of this book are to the trademarks of Apple 
Computer Incorporated. 


Published by 
OSBORNE/McGraw-Hill 
630 Bancroft Way 
Berkeley, California 94710 
U.S.A. 


For information on translations and book distributors outside of the 
U.S. A., please write OSBORNE/McGraw-Hill at the above address. 


PRACTICAL BASIC PROGRAMS — APPLE II® EDITION 


Copyright © 1981 McGraw-Hill, Inc. All rights reserved. Printed in the United States of America. 
Except as permitted under the United States Copyright Act of 1976, no part of this publication may be 
reproduced or distributed in any form or by any means, or stored in a data base or retrieval system, 
without the prior written permission of the publisher, with the exception that the program listings may 
be entered, stored, and executed in a computer system, but they may not be reproduced for 
publication. 


234567890 MLML 8765432 
ISBN 0-931988-66-7 
Cover design by Joseph Mauro. 


Acknowledgments 


Steven Cook, Martin McNiff, and Robert Thomson conceived, designed, wrote, and tested many of 
these programs, and prepared the final write-ups and program listings for publication in the original 
Osborne book, Practical BASIC Programs. 

Dr. Samuel H. Westerman provided the concepts, designs, and initial program listings for 18 of these 
programs: Income Averaging, Continuous Interest Compounding, Depreciation Switch, Apportionment 
by Ratios, Profit Sharing Contributions, Statistical Estimation Theory, Statistics, Unbiased Estimator of 
Standard Deviation, Chi-Square, Data Forecasting Divergence, Newtonian Interpolation, Lagrangian 
Interpolation, Sums of Powers, Factorials, Temperature Conversion, and Musical Transposition. He 
also provided source material for the write-ups for the 18 programs. 

Richard E. Beckwith, Ph.D., provided the concept, design, program code, and write-up for the program 
Swedish Machine (Queuing Theory). 

George M. Blake suggested programs Accrued Interest on Bonds and Current Value of a Treasury 
Bill. 

The programs were converted to Apple II by Cynthia Greever. 


vil 


Contents 


Preface ix 
Introduction xi 


Income Averaging 1 

Current Value of a Treasury Bill 14 
Accrued Interest on Bonds 16 
Continuous Interest Compounding 19 
Rule of 78’s Interest 21 

Present Value of a Tax Deduction 23 
Future Value of an Investment (Uneven Cash Flow) 25 
Net Present Value of anInvestment 27 
Lease/Buy Decision 29 

Syndicated Investment Analysis 32 
Depreciation Switch 38 

Apportionment by Ratios 40 

Internal Rate of Return 43 

Financial Management Rate of Return 46 
Financial Statement Ratio Analysis 50 
Profit Sharing Contributions $7 
Checkbook Reconciliation 61 

Home Budgeting 65 

Critical Path Method (CPM) 81 
Program Evaluation and Review Technique (PERT) 86 
Transportation Algorithm 93 

Swedish Machine (Queuing Theory) 103 
Markov Analysis 110 

Nonlinear Break-Even Analysis 118 
Payoff Matrix Analysis 122 

Bayesian Decision Analysis 127 
Economic Order Quantity 131 

Economic Production Quantity 135 
Statistical Estimation Theory 138 
Statistics 142 

Unbiased Estimator of Standard Deviation 149 
Chi-Square 151 

Data Forecasting Divergence 155 
Newtonian Interpolation 158 

Lagrangian Interpolation 161 

Sums of Powers 165 

Factorials 167 

Temperature Conversion 169 

Numeric Base Conversion 171 

Musical Transposition 174 

Appendix 177 


Preface 


We collected the programs in this book to address the continuing need for readily available and easy-to- 
use computer programs that do something useful. The supply of such programs has not Kept pace with 
the demand. The the number of computer users is growing at an astounding rate, thanks chiefly to the 
availability of inexpensive small computers. An increasing number of these people, many of them first- 
time users, are interested only in the practical aspects of computing. Today, those who view the 
computer solely as a means of entertainment are few and far between. While more practical programs are 
now available, many contributed by new users, there just aren’t enough. And those that do exist are 
hard to find. So we brought together in this book forty relatively short programs covering a wide range of 
practical applications. 


xi 


Introduction 


Purpose 


Considering all the small computers people have bought in recent years, it should be easy to find 
practical computer programs. This is especially true since few users still consider their computer just a 
diversion. But practical programs are not readily available. The purpose of this book is to help fill that 
void. All forty programs in this book are useful computer applications. The Applesoft BASIC program 
listings are included. Type them into your computer and they are ready to run. Both the programmer and 
the nonprogrammer benefit from this; neither has any programming to do. All of which saves everyone 
time; the nonprogrammer needn’t learn programming and the programmer has more time to write 
programs no one else has written. 

While you don’t have to be a programmer to use this book, you must understand the subject matter of 
the programs you wish to use. It is beyond the scope of this book to explain how, when, where, or why 
you would use any of them. This does not mean you must be a tax accountant in order to use the Income 
Averaging program, or a management science professional to use the Transportation Algorithm 
program. There are sample runs and practice problems for each program. Chances are you can figure out 
the program’s applications from them. And if you understand the applications to some extent, but would 
like more information, you will find further reading suggested in the References section of many 
programs. 

This book has a secondary purpose as well, and that is to show by example the wide range of subjects 
that lend themselves to computerization. All too often, computer users who have cut their teeth on 
entertainment computing have trouble coming up with ideas for practical computing. So even if you 
don’t see a program in this book that is exactly what you need, you may find it easier to invent your own 
practical applications after studying some of these. 

As you look through the programs in this book, you may discover that you can use pieces of the 
programs or some of the programming techniques in your own work. For example, embodied in these 
programs is a function for rounding arithmetic calculations to the nearest cent and a subroutine for 
pausing at the end of each full display screen. For that matter you may be able to use an entire program 
as a component part of your own larger, more complex program. Some of these programs themselves 
make use of programs from the book Some Common BASIC Programs, Apple II Edition, also published by 
OSBORNE/McGraw-Hill. 


Organization 


These programs find their primary applications in four general areas: financial, management decision, 
Statistics, and mathematics and science. This arbitrary classification has no bearing on the utility of the 
programs per se. Clearly, the question is not what label we have applied to a program, but rather how it 
can be used. 

Towards this end, each program includes a complete write-up in addition to its listing. Each write-up 
begins with a discussion of its subject matter, its required inputs, and its resultant output. In some cases, 
there are limitations in the algorithm the program employs, or in the applicability of the program. These 
are described next. Following this in many programs is a Program Notes section. It tells you how to make 
minor program changes that make the program operate in a slightly different way, accommodate more or 
less data, and so forth. These changes may make the difference between the program being convenient 
or difficult for you to use. The Program Notes section also explains any complex or tricky aspects of the 
way the program itself is written. Generally speaking, it addresses the technical aspects of implementing 
the application with a computer program. 

Following this narrative material is an example of the program in use. Wherever possible, we set this 
example in a more or less real-life situation. An example which states a situation that can be resolved by 


using the program is more instructive than a list of raw data which you can plug into the program. The 
point of doing this is not to exercise our imaginations in concocting these situations, but to exercise your 
imagination in visualizing potential uses of the program. The examples demonstrate as many program 
features as they can in a problem of reasonable size. We provide the correct answers to the unknowns of 
the example. The answers may be in narrative form, or they may be an inherent part of the sample run, 
which comes next. The sample run shows the dialogue that occurs between the user and the computer 
when the program is used to answer the questions posed in the example. Compare the user’s inputs and 
the computer’s outputs in the sample run with the problem stated in the example. You should be able to 
determine how you would use the program to solve a similar problem. 

Practice problems follow each example. Use them to gain more familiarity with different ways you can 
use a program. Generally, we provide only the answers to these practice problems and not sample runs. 

The complete BASIC program listing comes next. The listings are documented with in-line remarks. 
The remarks make it easier for you to figure out how the program works, if you are so inclined. The 
remarks (which always begin with the BASIC command REM) are not essential to program operation 
but they will facilitate your understanding of it. 

Finally, we list references for most programs. Investigate these books, articles, etc. if you wish to read 
more about the subject matter of the program. 


How to Use These Programs 


Follow the steps listed below to use any of these programs. 


1. Read the program write-up and familiarize yourself with how the program works. Read the cited 
references if they will give you a better understanding of the subject matter which the program 
addresses. Be sure the program does what you need it to do before going any further. 


2. Type the program listing into your computer. Since the remark statements (those that begin with 
REM) are not essential to program operation, you need not type them in. By doing so, you will save time 
and programs will take less space, and the programs may even run marginally faster. But if you plan to 
modify a program extensively, you may be better off including its remarks, since they can be very helpful 
in tracing program logic flow during debugging. 


3. Check your program listing carefully for accuracy. Compare it line-by-line and character-by- 
character with the published listing. Correct any discrepancies. 


4. Save the program on tape or disk. Do it now, before you run the program. That way you can easily 
retrieve it in the event that anything happens while you are running it. 


5. Run the example exactly as shown in the sample run. If you have done everything right to this 
point, the results should be very similar to those published. 


6. If your answers differ markedly from ours, or your program does not run at all (i.e., you get some 
sort of error message), it is time for some detective work. First, double-check and triple-check your 
listing against the published one. We cannot overemphasize the importance of this scrutiny. Check for 
missing program lines and incorrect line numbers. Make sure you have entered the right letter or digit. It 
is often easy to confuse zeros and O’s, ones and I’s, two’s and Z’s, fives and S’s, and U’s and V’s. 

By now, your programs should be running correctly. If not, have someone else look over your 
program. Often another set of eyes can see things that you will miss repeatedly. Try putting the program 
aside for a while and coming back to it. After a short break, errors you didn’t see before may be glaringly 
obvious. 


7. As a further test of your program, run the practice problems. Compare your answers with those in 
the book. 


Income Averaging 


This program calculates U.S. federal income tax using the income averaging method (Form 1040, 
Schedule G). It determines whether a taxpayer qualifies for income averaging, and if so, it displays the 
entries to complete Schedule G. The program is based on 1980 tax forms, tax rates, and tax laws. It is 
devised to be used for as many years in the future as the law, rates, and forms remain the same as in 
1980. 

To use the program, you must enter the taxpayer’s name, the taxable year, and the taxpayer’s filing 
status that year (that is, single, married filing jointly, married filing separately, unmarried head of 
household, or qualifying widow(er)). You then enter the taxpayer’s base period income — the four 
years preceding the taxable year. For 1977 and later, this is the amount from line 34 of Form 1040, or 
line 11 of Form 1040A (line 10 on the 1977 and 1978 Forms 1040A). You must also enter the number of 
exemptions for each year 1977 and later, when the program asks for them. For any years of the four-year 
base period before 1977, you enter the taxable income directly. We should emphasize that you should 
enter an income figure — even a negative figure — for each year, and you should enter the total number 
of exemptions claimed each year (when requested), even though the taxpayer had no net income or even 
though it was a negative taxable income. 

Note that even though Schedule G directs that line 3 may not be less than zero, whenever the Internal 
Revenue Service has been confronted with the legislative history of the applicable section of the Internal 
Revenue Code, it has backed off, and permitted a negative figure on line 3. This program takes 
advantage of that fact. One the other hand, note that line 6 on Schedule G may not be less than zero, and 
the program takes account of that, too. 

The program then asks you for other applicable income amounts (for example, excluded foreign 
income) and the taxable income from Schedule TC for the taxable year. It then determines whether 
income averaging is permissible. If so, it displays the amounts you need in order to fill out Schedule G 
(1980 format). 


Program Notes 


The program rounds all calculations to the nearest penny. Some taxpayers prefer to work only to the 
nearest dollar. To put whole dollar calculations into effect, change lines 39 and 40 as shown below, and 
when the program asks you to enter dollar amounts, enter them in whole dollars only. 


39 REM ROUND OFF TO WHOLE DOLLARS 
40 DEF FNR (X) = INT (X + 0.5) 


The 1980 Schedule G reproduced below shows how the elements of array A() correspond to the lines 
and columns of Schedule G, from A(1), the taxable year in the upper right corner, to A(44), the 
computed tax amount. Note that variables A(5), A(9), and A(14) are in hatched boxes (the IRS intends 
that they remain blank in 1980). For 1980, the program accounts for that by making them all zero. As 
years pass, the hatching will pass off to the right, and entries will be required in those boxes. 


John and Mary Brown are filing a joint tax form. They have one dependent. Line 34 of their 1979 Form 
1040 is $16,699.00. Line 34 of their 1978 and 1977 1040 Forms shows $10,270.00 and $12,600.00. Their 
taxable income for 1976 was $11,133.00. Their foreign income for 1979 and 1976 was $5,300.00 and 
$5,000.00. They have no penalty under section 72(m) (5) and no community income. Their taxable 
income for 1980 was $37,900.00. How would you use this program to help fill out their Schedule G for 
1980? 
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SCHEDULE G Income Averagin 
(Form 1040) sing A(1) 


See instructions on back. 
f T 
Department of the, Treasury » Attach to Form 1040. 21 


Name(s) as shown on Form 1040 Your social security number 


(a) (b) (c) (d) 


: ° Ist di 2d di 3rd di 4t di 
Base Period Income and Adjustments base Heriod year base period year base period year base period year 
1979 1978 1977 1976 


a, rs aT as as ms Tn 


1 Enter amount from: UNG, 
Form 1040 (1977, 1978, and 1979)—line 34 5 3 nA 7/7, yo 
Form 1040A (1977 and 1978)—line 10 A(2) A (3) (4) a Yj 
Form 1040A (1979)—line 11 WY 


la ierea ne Le as 
Memento | MO | 
3 Taxable income (subtract line 2a or 2b from A(10) A(11) A(12) A(13) 


line 1). If less than zero, enter zero . . . [ee _  _ 
4 Income earned outside of the United States 
or within U.S. possessions and excluded un- 
der sections 9l1l and931 . . 

Y Y 

On your 1980 (2 or 5 enter $3,200 Yj Yj 
Form 1040, if}1 or 4 enter zal in cum oe . GOUG Yyy 
you checked box {3 enter $1,600 . . YY 7 YH Yy 


ol 


6 Base period income (add lines 3, 4 and 5). A(22) A (23) 


Computation of Averageable Income 
7 Taxable income for 1980 from Schedule TC (Form 1040), Part I, line 3. 
8 Certain amounts received by owner-employees subject to a penalty under sec- 
tion 72(m)(5) . 
9 Subtrdct line 8 from line 7 . 
10 Excess community income 


11 Adjusted taxable income (subtract line 10 from line 9). If less than zero, enter zero. . . ... . il 
12 Add columns (a) through (d), line 6, andenterhere. . . .....-. 12| a(29 | A(30) 


13 Enter 30% of line 12. . . . 2 
14 Averageable income (subtract line 13 from line 11). 


If line 14 is $3,000 or less, do not complete the rest of G | 
this form. You do not qualify for income averaging. 


Computation of Tax 

15 Amount from line 13 . Sn rs 12a 
16 20% of line 14. 6. 6 ww ew ee ee ee ee ee ee wee ww LIE 
17 Total (add lines 15 and 16). 2. . 1 ee ee ee ee ew we we we we ew (AZ 
18 Excess community income from line 10. . . 2 6 1 ee ew ww ew ww ew ww ww LA 


19 Total (add lines 17 and 18). 2 1 we we eee we ee ew ee ww ww ww [AD 
20 Tax on amount on line 19 (see caution below). . . . .« «© « «© «© «© «© «© «© «© «© « . 20 
21 Taxon amount online 17 (seecautionbelow). . . ....... {2h 
22 Tax on amount on line 15 (seecautionbelow). . . . 2. 2. . « 6 6 of 22 
23 Subtract line 22 from line21l1. 2. 2. 2. 1 1 ee we ww ew we LO 


24 Multiply the amount online 23 by4. . . . - ew ew ew [24 
Note: If no entry was made on line 8 above, skip lines 25 through 27 and g go to line 28, 


Y 
25 Tax on amount on line 7 (see caution below). . . . . - « - « - | NEES ac L, 
2 


26 Tax orf amount on line 9 (see caution below). -. . ....... .L26l _ A(42 
27 Subtract line 26 from line 25. 27 A(43) |__| 
28 Tax (add lines 20, 24, and 27). Enter here and ¢ on Schedule TC (Form 1040), Part I, line 4 and check A(44) 


Schedule G box. ... ee ee . . . . | 28 
Ceution: Use Tax Rate Schedule X, Y or Z from the Form 1040 instructions to figure your tax on lines 20, 21, 22, 25 and 26. Do not use the tax tables. 


INCOME AVERAGING 


Answer: 


INCOME AVERAGING 
TAXPAYER’ S NAME Is: 
JOHN AND MARY BROWN 


TAXABLE YEAR: 


31980 


ENTER FILING STATUS-— 

--1 FUR SINGLE 

-~-z FOR MARRIED/SIOINT 

-~3 FOR MARRIED/ SEPARATE 
--4 FOR HEAD OF HOLISEHOLD 
--—o FOR GUALIFYING WIDOWCER) 


ENTER THE INCOME FIGURE CORRESPONDING 
TO LINE 34 ON FORM 1040, OR ON FORM 
1O40A, CORRESPONDING TO LINE 1liciv?y?) 
OR LINE 1LOCLTP7 7-175). wa 

FIR THE YEAR iv/7? 


T1469 


HOW MANY EXEMPTIONS CLAIMED THAT YEAR’? 


ENTER THE INCOME FIGURE CORRESPONDING 
TO LINE 34 ON FORM 1040, OR ON FORM 
1O40A, CORRESPONDING To LINE 11i¢i?7?) 
OR LINE LOCL? 77-1775). wae 

FOR THE YEAR 1778 

YLOS70 


HOW MANY EXEMPTIONS CLAIMED THAT YEAR? 


ENTER THE INCOME FIGURE CORRESPONDING 
TO LINE 34 ON FORM 1040, OR ON FORM 
1O40A, CORRESPONDING To LINE Jiciv/) 
WR LINE 1O0C1L?7 27-1975)... 0 

FOR THE YEAR 1777 

Y1L2400 


HOW MANY EXEMPTIONS CLAIMED THAT YEAR’ 


ENTER TAXABLE INCOME FOR YEAR 1774 
YLlias 


MOST TAXPAYERS DON’T HAVE EXCLUDED 
FOREIGN INCOME, FENALIZED. AMOUNT: 
UNDER CODE SEC 72¢M)02), OR EXCESS 
COMMUNITY INCOME. DO YOU HAVE ANY 
MF THESE ITEMS2 (Y/N) 


EXCLUDED 


SESOO 


70 


70 


ENTER FENALT ZED 


TO 


ENTER EXCESS: 


7) 


INCOME-—-YEAR 


ZAME--YEAR 


SAME-—-YEAR 


ZAME-—-YEAR 


AMOUNTS » 


COMMLINI TY 


SEI 


INCOME 


ENTER TAXABLE INCOME FOR YEAR 
Ya 7 OO 


FoR JOHN ANT! 
WIS ING 
MOIMeES 


THE FOLLOWING 
SCHEOQULE (G, 


HHHHRHHHEHHAH 


IHN 


FILING 


ENTER 
RASE FERTOOD 


LINE 


LINE 2 


LINE 


LINE cs 


LINE 


LINE 
LINE 


ENTER 


AND 


i- 


MARY 


STATLUS: 


127 


rr oa" -, " 
“i ° | 1 Aa “of % H 


- . m, ee ae. o oe ® 
“A$ SG SG hd aS 
oa”, on “. 
2 ie Nias 


ee 
. f 
“Sod NEN SEND ND OSE NONE SENSE OSE SOS 


~ 


ee 
“Yk O}§ NJ oo oO so 


= eo 
as ae 
xe 


ms sy ot 


REPRESENTS 
LES ING 


SCHEDULE is 


ONT INOUE St 
INCOME ANE 


TO CONT INUE StS 


BROWN -—-1 ‘70 
MARR. / JOINT 
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7M) C2) 


1 


RROWN, 1s0O TAX, 
INCOME AVERAGING, 
; Ta 


THE FILLEDQ-IN 
THE 1270 FORMAT: 


HHKRMRHAHKEH 


ADJUSTMENTS 


$1467 
$1OL7O 
$1 2400 
$0) 
$e 
$e SSO 
$2000 
$1340 
$020 
$1LOBSO 
$1113 
SOQ 
$C) 

$0) 
$000 
$2300 
Slavery 
$5020 
$1 OS FO 


$1] os 


INCOME AVERAGING 


COMPUTATION OF AVERAGEABLE INCOME 
AND COMPUTATION OF TAX 


LINE 7 : $237700 
LINE & : $0 

LINE 7 8 $237'700 
LINE 10 : $0 

LINE 11 ©: $37700 
LINE 12 : $54702 
LINE 12 © $17010.4 
LINE 14 : $2088, 4 
LINE 15 &§ #17 7010.4 
LINE 14 ©! $4177,88 
LINE 17 ©: $21188, 45 
ENTER “C° To CONTINUE? 
LINE Je : #0 

LINE 17 § $21188,45 
LINE 20 : $3549, 77 
LINE #1 : $3547.77 
LINE 22 3: $2507, 54 
LINE 23 3 $1042.23 
LINE 24 : #4145, 972 
LINE 25 : $0 


LINE 24 ° $0 

LINE 27 § $0 

LINE 2h 5 $7715.46? 

HHHHHHHHHH END OF SCHEDULE G +e eee HHH 
ENTER “(° TO CONTINUE WITH NEXT TAXFAYER?* 


Practice Problems 


1. Hester Prynne is single, head of household, and has one dependent. Line 34 of her 1979 Form 1040 
is $13,988.39. Line 10 of her 1978 Form 1040A shows $12,650.10. Her taxable income for 1977 was 
$9,212.58; for 1976 it was $8,775.39. In 1979, she had $1,996.50 excluded under section 911. Her 
taxable income in 1980 is $25,300.17, and she has $1,100.00 subject to penalty under section 72(m) (5). 
How should she fill out her 1980 Schedule G? 

Answer: 


FOR HESTER FRYNNE, 1730 TAX, 
USING INCOME AVERAGING, 
COMES TO S1l1s.& 


THE FOLLOWING REFRESENTS THE FILLEO-IN 
SLHEDULE G,. USING THE 1780 FORMAT: 


HHHHHHHHHHHHH SCHEDLILE G H#HHHKHHEHHH 


HESTER FRYNNE --1 750 
FILING STATUS: LINM. HEAD OF HOLSEHOLD 


ENTER “t" Tea CONTINUES 


RASE FERION INCOME AND ALWIL TMENTS 
LINE 1- 1y72 3 Slave, oY 
Iv7is 8 $ISE50, 1 
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V7 7 8 7212.55 
77H § $0 
LINE 2A- 275 ¢ $1500 
S77 8 $1500 
LINE 2B- 279 2 SE000 


7% 
x 
ty 


s $1107, 5 
© S$11120.1 


9, 
“hi 


= 
5 £1 


“St 


LINE 4- 


Oe ee 
~~ * CI 


a ee 
“A = 
NE NECN SENDS SINE ONES NSESSOSONOSSSONS 
iN so oo Nm co SE 
S 
by 
Ls 


$2200 

$1 svo4. 

$11170., 
© $7712.53 
© $1O0%72. 3 


LINE a- 
LINE ¢ 


Ts a ee 
ot Mean? a 


co em 0 


a s™ 
b3 


ENTER “(" TO CONTINUE St 


COMPUTATICN CF AVERAGEABLE INCOME 
AND COMPUTATION OF TAX 

LINE 7 § $252300,17 

LINE & &: $1100 

LINE 3? § $24300,17 

LINE 10 =: $0 

LINE 11 © $243700,17 

LINE ils : $43002, 74 

LINE 3 =: $13144,5% 

LINE 14 : $11033, 28 

LINE if = $121446,8% 

LINE 14 © $2210.64 

LINE 17 ©: $1535 7, 55 

ENTER “C" To CoNTINUE SC 

LINE iS &¢ $0 

LINE i? © $1335 7,5%3 

LINE #0 § $2540. ¥4 

LINE 21 ¢ $2548, 74 

LINE 22 8 $2071.25 

LINE 23 2 $537.71 

LINE 24 = $2750, 24 

LINE 25 : $3507, 04 

LINE #4 © $5203.04 

LINE 27 & S304 

LINE 25 3: $3115.00 

SHHHPHHHHHH END OF SCHEDLILE th #HeeHHRHHHHH 

ENTER “O° TO CONTINUE WITH NEXT TAXPAYER YX 


2. Billy Budd is single and has no dependents. Line 34 of his 1979 Form 1040 is $45,130.75. Line 34 of 
his 1978 Form 1040 is $48,968.20. In 1977 and 1976, his taxable incomes were $37,500.00 and 
$38,105.05. He had $10,000.00 of excludable foreign income in 1979, $3,000.00 in 1978, $2,500.00 in 
1977, and $2,000.00 in 1976. He has no excess community income and nothing subject to section 


INCOME AVERAGING 


72(m) (5) penalty. His income for 1980 is $57,762.53. How would he complete Schedule G, if he is 
eligible for income averaging? 


Answer: 


BILLY BUD 

DOES NOT GUALIFY FOR AVERAGING. 
AVERAGEARBLE INCOME FOR i?eo 

Ii $1471, 535- WHICH IS $3000 OR LESS. 

ENTER “tC° To CONTINUE WITH NEXT TAXFAYER?X 


Program Listing 


1 REM ///// INCOME AVERAGING ////7 
= 6 6OREM AQ) HOLUS SCHEDULE G AMOUNTS 
7” REM 1d) AND RC) ARE FOR TAX RATE SCHEDULES 
10 DIM Ac45),0(4,14),R(¢4,14) 
i” REM READ TAX RATE SCHEDULES 
0) GOAL AYvOoo 
sa] REM ROUNDOFF FUNCTION 
40 DEF FN ROX) = INT (100 # X + 0.8) / 100 
47° REM CLEAR SCHEDULE G FOR NEXT TAXFOYER 
“0 FOR JT = 1 Ta 45 
409 ACI) = © 
70 NEXT I 
7? REM CLEAR SCREEN 
mC) HIME 
sa FRINT “INCOME AVERAGING" 
YO FPRINT "TAXPAYER'S NAME [sa " 
100 INFUT 24% 
105 FRINT 
1190 FRINT "TAXABLE YEAR: " 
120 INFUT ACI) 
2a 06 PRINT 
120 FPRINT "ENTER. FILING STATUS-—" 
140 PRINT " --1 FOR SINGLE" 
120 PRINT " --2 FOR MARRIED/ IOINT" 
140 PRINT " --3 FOR MARRIED/SEPARATE" 
170 FRINT " --4 FOR HEAD OF HOUSEHOLD" 
180 PRINT " --5S FOR QUALIFYING WIKQWC(ER)" 
170) 0©6ud INFUT OF 
200 FRINT 
2aG& REM 
S57 REM ###+4 BASE FERION INCOME AND ALDIUSTMENTS #### 
foot = =6REM 
245 REM ENTER INCOME AMOQUNTS-— 
247 REM PROCEDURE IS DIFFERENT BEFORE 1777 
2/0 FOR J = 1 To 4 
280 IF At1) -—- J > L274 THEN 22o 
270 PRINT "ENTER TAXABLE INCOME FOR YEAR "TAC1) - Ol 
300 INPUT ACI + 7) 
305 PRINT 
S10 GOTO Fao 
220 PRINT "ENTER THE INCOME FIGURE CORRESPONDING" 
0 PRINT " To LINE 34 CIN FORM 1040, OR ON FORM" 


S40 
FO) 
“40 
370 
IO) 
470 
4iQ 
od aba 
455 
{hint 
AIO 
BOO 
P10 
740 


Fat 


“Si sO os oe os 


Ti 0 oo oo 


or 
a 


YAO 

70 

1010 
LO20 
1L1O30 
1040 
LOO 
1040 
1070 
Loko 
Lovo 
1100 
1110 
1120 
1120 
1140 
11350 
1135 
1160 
1170 
1180 


PRINT 
FRINT 
PRINT 
INFUT 
FRINT 
PRINT 
INFUT 
FRINT 
REM 

REM 


AGI + 


IF AC 


IF AC 
IF F 
IF F 
IF F 
REM 


ACIS) 


GIT 
REM 


ACIS) 


Pot 
REM 


ACI.) 


REM 
REM 
REM 
IF A¢ 


AC14) 


PRACTICAL BASIC PROGRAMS — APPLE Il 


" 1040A, CORRESPONDING TO LINE 1L1iciv7y)" 
"OR LINE 1LOCL?7 7-12 78) wae 

"FOR THE YEAR "3AC1) - 

ACI + 1) 


"HOW MANY EXEMPTIONS CLAIMED 
Rt 


THAT YEAR?" 


EXEMPTIONS 
$720 EACH BEFORE THAT 
=“) = jooo # &E 
1) toe ivy 


ARE $1000 EACH I?72? AND AFTER; 


THEN 740 


J) = 750 # BR 
4“) = ACI + 1) - ACI + 3) 


—4 FROM FILING STATUS, DETERMINE ZERO 
BRACKET AMOUNT FOR i?7S AND 1774 
TAX YEAR IS 1751 OF LATER, IGNORE 
ZERU BRACKET AMOLINT = 

1> > 17a THEN 1010 

1 OR F 4 THEN #OO 

= OR F = THEN 20 

3 THEN 40 

SINGLE HEAD 
SeZOO 

EM) 
MARRIED/IOINT OR WIDOWCER) 
00) 

GO) 

MARRIED/SEF ARATE 

= 1400 

Iv?7S SAME AS 12776 
IF TAX YEAR IS 1 P80, 
ZERO BRACKET AMOUNT 
1) IvsO THEN 1010 
= ACIS) 


MIF HOWMSEHOLO 


IGNORE i372 


oped 
ome 


PRINT 
FRINT 
FRINT 
FRINT 
FRINT 
INFLIT 
IF WS 
FRINT 
INFLIT 
FRINT 
INFUT 
FRINT 
INF LIT 
FRINT 
INFLIT 
FRINT 
FRINT 
INF LT 
FRINT 


"MOST TAXPAYERS DON'T HAVE EXCLUDED" 
" FOREIGN INCOME, FENALIZED AMOUNTS" 
" UNDER CODE SEC 72CM) C2). OR EXCESS" 
" LOMMUNITY INCOME. OD YOL! HAVE ANY" 
" OF THESE ITEMS CY/N)" 


"N" THEN 1200 
"EXCLUDED FOREIGN INCOME-—YEAR 
AC14) 

" =AME--YEAR 
AC17) 


"SACI1) 
"SAC1) 
SAME--YEAR "SAC1) -— & 
AC15) 
" SAME-~YEAR "SAC1) 
ACI?) 


"ENTER PENALIZED 
ACLO) 
"ENTER EXCESS 


AMOUNTS, SEC. 7ECM) CS)" 


COMMUNITY DNCOME" 


INCOME AVERAGING 


1170 INFUT AC21) 
1172 FRINT 
li?” REM ADD WF BASE FERIO‘ON INCOME COLUMNS A-D 
1200 ACH2) ACIO) + AC14) 
1210 ACES) AC11) + ACL? 
1220 ACH4) ACIS) + ACLS) + AC14) 
1230 ACBA) ACLS) + ACI?) + ACLE) 
{2508 REM RAS EE PERIOO INCOME CANNOT BE NEGATIVE 
12a? REM IN ANY YEAR 
1240 FOR I = 22 TO 2S 
240 TF ACI) > O THEN 1280 
1270 ACI) = 0 
1250 NEXT I 
wee REM 
1257 REM ##+% COMPUTATION OF AVERAGEGELE INCOME ##+#+ 
Zoe REM 
ee’ REM 7. TAXABLE INCOME FROM SCHEDULE Te 
127YO PRINT "ENTER TAXABLE INCOME FOR YEAR "sAC1) 
1200 INFUT ACz4é) 
1205 PRINT 
1307 REM Y. SUBTRACT LINE & FROM LINE 7 
O AC#7) = ACB4E) ~- ACHO) 
ms REM 10, EXMESS COMMUNITY INCOME TS Ate) 
7 REM 11. AQJIUETED TAXABLE INCOME 
PACSZS) = ACE7) - ACZI1) 
“ REM LINE 11 CANNOT BE NEGATIVE 

TF ACSE) * = 0 THEN 1340 
ACSES) = O 
REM iS. TOTAL BASE FERIO“ON INCOME 

ev?) = ACHE) + ACES) + ACZ4) + ACSE) 
REM i3. 30% OF LINE 12 
ACBO) = FN R(ACSY) # 13) 
REM 14. AVERAGEABLE INCOME 
Lavo ACSI) = ACSE) ~— ACBO) 
1400 TDF A¢s1) > = 32000 THEN 1450 
1420 FRINT 2% 
14235 PRINT "WES NOT GUALIFY FOR AVERAGING. " 
1430 FPRINT "AVERAGEABLE INCOME FOR "sAc1) 
14335 FRINT "TS €"3A¢31)3"- WHICH IS 23000 OR LESS," 
1440 GOTO 2170 
1447 REM 15. AMOUNT FROM LINE 13 
1450 ACBS) = ABO) 
1447" REM 146. 20% OF LINE 14 
1470 ACSa) = FN ROACBH1) # .2) 
17. TOTAL (ADD LINES 135 AND 14) 
= A(CBE) + ACES 
1485 REM is. EXCESS COMMUNITY INCOME IS Acz1) 

: j 


bho Of il 


tet a3 ist 3 fat tet 
Oe on ee 


—. 
1 3 
— 


Cn it 
* £ 8 3 : 


-_ 

a 

D 

_, 
t 

a) 

— 
I 


on 8 
me 7 


mM i “yoo 
e 4%, e os 


88 
‘~ee 


. TOTAL (ADU LINES 17 AND 18) 
ACH4) + ACE1) 

20, TAX ON LINE 17 AMOUNT 

1200 5 = ACBS) 

1810 =6GOSUR 4000 

J2LZO ACHAEA) = T 

Is2¥ REM 21. TAX ON LINE 17 AMUOLINT 

Ias0 S = ACB4) 


10 


1240 


‘occ ee “ene om thas 


ACs7) = T 
mote TAX UN LINE 1s 
2 = AC: 


32) 


REM 


GCSE 
ACE) 
REM 
AC ) 
REM 
AC4AO) 
REM 
REM 
IF A¢ 
REM 


—— 
eooen 


So AC 
tesa 
AC41) 
REM 
Ss Al 


PRINT 
FRINT 
IF F 
IF F 
IF F 
IF F 
REM 
FR INT 
i 
FR INT 
repel 
FR INT 
GoTo 
FRINT 
GltIT 
FRINT 
RINT 
REM 


” 7 
Sens “eos! 


24, MULTIPLY LINE 


-IF 


. 1 
were “ooo” BE 


wT « 


PRACTICAL BASIC PROGRAMS — APPLE II 


AMOUNT 


4000 


Cn ee) 


= T 


SUBTRACT LINE 
ACBH7) - ACRE) 


wa FROM LINE ci 
Zo AMOLINT BY 4 
= 4 # ACS) 

THERE “5 NO SECTION 72 
-INCOME, SERIF To LINE 25 
x) © THEN 1460 
TAX ON LINE 7 AMOUNT 


CM) C3) PENALTY 


at) 
A000 
eG. TAX ON LINE 


) 


AMOUNT 


27) 


~ 


—™ co 


SUBTRACT LINE 24 aval 
AC41) - AC4e2) 

sm. TAX (ADD LINES 20, 
ACBE) + AC40O) + A423) 


FROM LINE 


24, AND 27) 


Hobos Wi 


HHHH PRINT SCHEDULE G ###4 

"POR "s2eo","sAC1L 3" TAX." 
"LIS ING INCOME AVERAGING, " 

"COMES Tl "sAC44) 


"THE FOLLOWING 
SCHE OULE 


REPRESENTS 
UST NG 


THE FILLEDQ-TN" 
THE w?eO FORMAT: " 


lay 


USPHPPHHHEHHRHHHH SCHEDULE G #eeRHHHHHH" 
Z$3" 
"FILING 
= THEN 
= THEN 
4 THEN Leto 

= THEN 1270 
MTHERWISE F3=] 

ST NGLE" 
re) 

"MARR. /IO0NT" 

Leo 

"MARR, /SEF. " 
TIO 

"LINM. HEAT OF HOUSEHOLI" 
Sel) 


"EHIAL . 


om oo 


"SACL) 
STATINS 3 
LB10O 
LENS 


WITKIWCER) " 


WAIT FOR OFERATOR CUE TO CONTINUE 


INCOME AVERAGING 


it 

“Si 
~~ 
Se" 


ie 
rt 
"5 ifs naa 


~_ 

—_ 

om™ 2. 
1s 

— Se 


a ee 
ww t? 
See? 1 ] .! 


oe 7, = 
A “$d ii *.! : *.!.. 
~ 
a * 


- 


*. Ui Un a 
if 


Li Ors 
—, oe 4 
ht 


. Oe) 


a, 
te 
we 


Ts 
et 


= 
Us 


“Ij 


rir Cy Se oo Pa ee eee 


*. Ox wr 
ak eee 
{ Li od Ts 
oo 
cme! — 


! 
Se 


eOOs 
2009 
2O1O 
2018 
ZOLO 
SOO 
2040 
ZOO 
2040 
2LO7O 


SOO 


OPO 
2 1LOoo 
lO? 
e2lio 
wht 
2130 
2140 
2 LO 
wléo 
an oct 
ela? 
21 FO 
2 lio 
2leo 


2000 
ela a an teat 
ala det Bec 


REM 


EIR bet 0 
PRINT "BASE FERIOO INCOME AND 
REM FRINT LINES 1. 2. AND 3 
FOR T = 2 70 10 STEFF 4 
IF I = & AND AC1) > = 
TIF I = 3 & OR ACI) 
NEXT I 
REM FRINT LINE 4 

= 1A 
ROS S7OO 

REM FRINT LINE 3, 
FRINT "LINE S- "3 
IF ACi4) = © THEN 
FRINT »AC1) - & S$" SACL 4) 
IF ACIS) = © THEN 1?'ro 
FRINT »:@C1) - 43" © S"SAC1S) 
PRINT LINE 4 


OC 


An IUSTMENTS " 


Leia THEN 
Ivo THEN 


GOS SPO 


GOsLe S7OO 


IF IP°S APPLICABLE 
170 


a jt a 
3 a 


BIE bias af OO 

PRINT 

REM WAIT FOR OPERATOR CUE To CONTINUE 
GSU Seon 

FRINT 

PRINT "COMPUTATION CF AVERAGEABLE INCOME" 
FRINT " AND COMPUTATION OF TAX" 

PRINT “LINE ? $US ACLS) 

PRINT "LINE & $PACLO) 

PRINT "LINE SACL?) 

PRINT "LINE 10 2 $s AC21) 

POR 4 = 11 To 1? 

PRINT "LINE 
NEXT 
REM 


Mods os BUF ACH + 17) 

WAIT FOR ORFERATOR CUE To CONTINUE 
(OSB Seoo 

PRINT "LINE Lo : 
FoR Jo = 17 To 2S 
FRINT “LINE 
NEXT wl 
FRINT 
REM 


S'SACL1D 


hss" os S's AC + 14) 
"SRHHHRHHHEH END OF 
WAIT BEFORE ERASING 
REM NEXT TAXPAYER 
PRINT “ENTER “l° TO CONTINUE 
INFLUT Wi 
IF WS = 
ENC: 
REM 
REM 
REM 
FRINT "LINE "$s INT ¢€¢I - 2) 7 4) + 13% "5 
FOR wl = OG TO oS 
PRINT -:@A¢€1) - wl - 1s": 
NEXT ol 
RE TURIN 
REM ‘SUBROUTINE To PRINT Guy 
PRINT "LINE 2Aa- 


SCHEDLILE G ##eeeHHHHE" 
SCREEN FOR 


WITH NEXT TAXPAYER": 


THEN OQ 


### SUBROUTINE TO FRINT ALL OF LINE 1,.2,3,4,0K & ### 


SSAC - wt) 


LINE = A ANDO B 
Ie7 2 BUSA?) 


ie 


t 
ay) 


a cal 

8770 

ei 
7? 
7 
7 


Pu 


yi a 
Oe a 
“Ot SES 


rmoyge 


a, 
2 8 
“owt 

% 
wd 


ow’ f = 
tw e 
re 
wns ot 
fo? ww 


33 
wks 


"Sr a 
oe 


Can on on 
ao 
! 


t 
ae 
"is rf 


Pes 3 
pans | 
.) 
“ot 
bal - = 
8 ‘ a) “23 
ee - 
wet 
Oe 


A000 
E002 
AQOS 
HO) 4 
SOO 
MOO 
&Q010 
é&01% 
£020 
AQSOQ 


EO 


G@O40 , 


GODS 
AQ20 
EC 
fOet) 
A068 
EOE 
E070 
A080 
EC 
AMO 
ECV 


A100 , 


&11O 
QL 
& VO 


EOD 
210 
AIL 


T 


kK 


KE. 


PRACTICAL BASIC PROGRAMS — APPLE I! 


FRING " 
FRINT “LINE 
RETURN 

REM 
REM 
PEM 
REM 
REM 
PRINT “ENTER 7“ 
INFUT WS 

RE TLR 

REM 
REM 
REM 
REM 


S'S ACS) 


1‘: 
2a 1° © $"SAC4&) 


### SUBROUTINE TO WAIT FOR OPERATOR 
TO CUNTINUE SINCE ENTIRE 
WON’ T FIT ON ONE 


WIE 
SISHEDULE G 
MIRE EN #363 


TO CONTINGE" 5 


Hee SUBROUTINE TO CALCULATE TAX ON AMOLINT S 44+ 


INITIALIZE TAX Tao ZERC 
{) 


REM SINGLE HAS 14 BRACKETS, ALL OTHERS HAVE 15 


is 

IF Fo 1 

14 
DETERMINE 


— 


THEN 6010 


REM WHETHER TO WISE SCHED. X:Y. OR 2 


WIDOW CER) 
IF F <) 2 THEN 


SAVE As 
AQ40) 


MARRIED IGINT 


| START WITH ZERO BRACKET AMOUNT 


INCOME <= ZERO BRACKET AMOUNT? 
IOI) THEN 4130 

I= INCOME > THIS BRACKETS 
IF S&S 3» OCIyS + 1) THEN 4070 

FOUND MAX TAX BRACKET-— 
“TAX BALANCE OF INCOME 
kt Ch ~ (eLsdd & ROT.) 


I= 


CEILING? 


f/ 100 


GOTO 41220 

REM ALCUMULATE TAX FROM THIS BRACKET 

T= 7 + (O¢f.d + 1) - OCT) &# ROT) 7 100 
REM PROCEED TO NEXT BRACKET 

t = wl + ] 


TAX BALANCE OF INCOME AT HIGHEST RATE 
+ CRTs - Cla - 12) * RCIA) £4 100 
ROUND TAX AMCILINT 

FN RCT) 

RETURN 

REM 

REM 

REM 

RESTORE 

REM FIRST SCHED 

FoR 1 TO 16 

READ RC1,0)70CLae 

NEXT oJ 

REM THEN SHEDS 

FOR I= 2 To 4 


F wo EO THEN 4040 
fF 


HHH SUBROUTINE TO REAL TAX RATES HHH 


INCOME AVERAGING 


tv 
ae 
Lal 
=~ 
Ld 


i oS os oe oe i. 
2 r -> 
1 
olny 
Ld 


Eo 
Ets 


., 
1 
had o e, = - 
8 *. *. * “ots 
4) by) 1 £ 
“e' 


a - 
as rh 
Am : 


aa 
Li 
Wi sg co LA ee Po ee oS: 


7 
Dwain 8 


FOOD 
POON 
POLO 
FOO 
FOR? 
POLE 
7O29 
POO 
7040 
FORO 
POD 
POE 
FOS 
POAC) 
7070 
YOO 
707 
PCRS 
FOR 
FOO 
7100 
7110 


ae) pag “ ay 


FoR. 


REAL 
NEXT 
NEXT 


= 1] TO 1c 
ROIs 200s) 
rt 
I 


Ri TURN 


REM 
DATA 
DATA 
LATA 
REM 
REM 
REM 
HATA 
LATA 
LATA 
END 


References 


HeeHH LZ’ TAX RATE SCHEDULES X,Y. AND 2 ##eH+# 
FOR EACH TABLE BELOW, GET RATE AND 

MUTOFF DATA FAIR FROM THE RIGHTMOST Two 
ROLUMNS OF THE AFPFROFPRIATE SCHEDULE 


---— SCHEDULE X---— 


14.2500, 146, 32400,15,4400,17,4500, 21,5800 
24,10800, 2464, 12700, 30, 15000, 34, 1a200 

ao OO, 44, 25000, 47, 34100, 55, 41 200 

Gi, S300, GS, S1800, 70, 1083200 
wom CHE CWILE Yo CIOINT/WIDW )---— 
14,3400,14,55900,15, 7400, 21,11700.,24,14000, 28 


POLO, Bey 24600, 37.27 700, 43, 35200, 42, 45500, 54 


~———SICHEDWILE Y (SEPARATE) ---~ 
14,1700, 16,2750, 18, S800, 21,5750, 24, 8000, 28, 19100 
ay LeSO0O, 37.14750,45,174600,47, 22700, 34. 30000 

9, ASHO0, 64, 54700, GS, 1200, 70, 107700 


~———SCHEDULE Z-~-- 


14,2200, 16;4400, 18,4500, 22.8700, 24,11800, 24, 135000 
21, LS2008 24. 23500, 42. 28500, 44. 34100; 54,44700, 3% 
[0600 4 &it. = OC won ec ere) 


- 
ame “eee 


U.S. Internal Revenue Service Code, Sections 1301-05. 
U.S. Public Law 91-172, Section 311(b) amending Internal Revenue Code Section 1302. 


U.S. Treasury Department, Internal Revenue Service. Income Averaging, publication number 506. 


U.S. Treasury Department, Internal Revenue Service. Regulations, Sections 1.1301-0 to 1304-6, 
especially the last sentence of 1.1302-02(b) (1). 
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Current Value of a Treasury Bill 


Treasury bills differ from other investment vehicles in that they are bought and sold at a discount from 
their face value. The rate will vary as the bill approaches maturity. Also, discounts are figured as if a year 
were 360 days; the annual percentage rate, or yield, is calculated using a 365/366-day year. 

To use this program, enter the T-bill’s face value, issue and maturity dates in MONTH, DAY, YEAR 
format, using one or two numbers for each value (be sure to separate each value with a comma). Then 
enter the current date and current price bid. The program provides the current value as a dollar amount. 


Example 


A $10,000 T-bill was sold 1/10/80 to mature on 4/10/80. On 1/17/80, government securities dealers 
were quoting a bid price of 12.09%. How much was the bill worth? 
Answer: The bill was worth $9,717.90 


CURRENT VALUE OF A TREASURY BILL 


FACE VALUE ($) 710000 
ISSUE DATE (MM, O00. YY) 71.10.80 
MATURITY DATE (MM,.00, YY) 74:10, 80 
TODAYS DATE (MM, 00, YY) 71.17.80 
CURRENT PRICE BID (4) 712.0% 


CURRENT VALUE = $9717. % 


WILD YOu LIKE TO RE-RUN THIS PROGRAM 
WSING NEW DATA (Y/N) +N 


Practice Problems 


1. A one-year bill issued 2/16/80 with a face value of $50,000 was sold 4/10/80 at a 7.35% discount. 
What was the selling price? 
Answer: The bill sold for $46,815.00. 


2. Diego bought a $1 million bill on 1/25/80 that matures 7/25/80. On 4/10/80 he noted that dealers 
were offering 15.54% on his issue. For how much could Diego sell his bill on that day? 
Answer: The bill was worth $954,243.33. 


Program Listing 


10 PRINT “CURRENT VALUE CF A TREASURY BILL” 


20 DEF FN A(X) = INT (X # 100 + .5) / 100 
200° PRINT 

40 FRINT " FACE VALUE (#)"3 
SO  INFLUT F 

40 PRINT " ISSUE DATE (MM,DD.YY) "3 


70 INPUT M.0,Y 


CURRENT VALUE OF A TREASURY BILL 15 


20 8 6GOSUER 240 


70 REM -- X3 = ABSOLUTE NUMBER OF DAYS FROM IMAGINARY LATE 


100 REM -- O0/00/00 To Issue DATE 
110 Xs = A4 
120 FPRINT " MATURITY DATE (MM.0D0,YY)"3 


120 INPUT ML.0,Y 

140 GOSsuUB 340 

120 REM -- X4 = TOTAL NUMBER OF DAYS IN FERIOL 

140 X4 = ABS (X33 —- A4) 

170 FRINT " TODAYS DATE (MM,00.YY)"3 

130 jJNPUT M,0,Y 

17OQ GOSLB 2340 

200 REM -- XS = NUMBER OF DAYS FROM ISSUE To TODAY 

210 X35 = ABS (X32 - A4) 

220 PRINT " CURRENT FPRICE BIO ¢(4)"3 

230 INFUT B 

“40 REM -- X4 = NUMBER OF DAYS LEFT UNTIL MATURITY 

20 X44 = X4 —- Xs 

240 PRINT 

270 FRINT "CURRENT VALLIE = "5 FN ACF -—- (CF / 164) *# (B # (X4 ¢ B40) 
#% 100))) 

260 PRINT 

27O PRINT "WOULD YOU LIKE TO RE-RUN THIS FROGRAM" 


275 PRINT " WSING NEW DATA CY/N)"3 

OQ INFLIT 7% 

310 IF Z$ = "Y¥" THEN 30 

s2QO IF Z$ = "N" THEN 450 

330 GOTO 270 

240 REM -- SUBROUTING TO DETERMINE NUMBER CF DAYS BETWEEN IMAGINARY 
220 REM -- DATE 00/00/00 AND MM/DD/YY USING 2345/2464 DAY YEAR. 

O REM -- REF. ACCOUNTS PAYABLE & ACCOUNTS RECEIVABLE (WANG), 

—~ REM -- Pe 

© RESTORE 

©O DATA O0,3,3,4,59,11,13,16.19,21,24, 24 
O FOR T1 = 1 TO 

400 READ A4 

410 NEXT 11 

420 A4 = A4 + Y # FB 
430 IF INT (Y / 4 
440 RETURN 

450 END 


Oe 


S45 + INT (CY 7 4) + 1 + (M - 1) # SE + OD 
) = Y / 4 AND M = 3S THEN A4 = A4 - 1 


References 
U.S. Department of Treasury. /nformation about Treasury Bills Sold at Original Issue, Form PD 800-D 
(rev. June 1978). 


U.S. Federal Reserve. Marketable Securities of the United States Government — U.S. Treasury Bills, Notes, 
and Bonds, circular No. LLM 185. 
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Accrued Interest on Bonds 


This program computes accrued interest to date on a bond. The program performs calculations using 
either a 365/366-day standard year, or a 360-day year method (used by some federal agency notes and 
bonds). Sometimes a bond is issued after the first period has begun. Because this results in a first coupon 
payment of less than the normal amount, some issues skip that payment and include it with the second 
period’s payment. In this case, you would respond ‘‘Y’’ for Yes when the program asks if this coupon 
involves a long first period, and enter the additional dates requested. 

To use the program, select the type of year the bond calculations will use, then enter the coupon rate 
and the number of coupons per year. If this coupon involves a long first period, enter a “‘Y’’ and enter 
the date the first period began, the date the bond was acquired, and the date the first coupon would 
normally have been paid had this not been a long coupon. If this coupon is normal or short, enter ‘“‘N”’ 
and then enter the beginning date for this period. For both long and normal or short coupons, you now 
enter the date the current period ends, and the settlement date. The program will output the accrued 
interest in percent of par value. 


Example 


What is the accrued interest for settlement on 9/10/79, for an 8.25% note due 8/31/81 and issued 
8/29/79, with a long first coupon? The coupon dates are 2/28 and 8/31. The first period began on 
2/28/79. (Since 1980 is a leap year, the end of the current period is 2/29/80.) 

Answer: Accrued interest is 0.271485308% of par value. 


ACCRUED INTEREST ON BONDS 


COMPUTE LIS INiss 

) 340 DAY YEAR 

2) 3657366 DAY YEAR 
) END FROGRKAM 


WHICH ‘2 
CMOUPON RATE (4) 38.25 


NUMBER CF COUPONS PER YEAR ?2 


DOMES THIS COUPON INCLUDE A 
LONG FIRST YEAR FERIOU (Y/N) YY 


BEGINNING OF FIRST FERIOD 
(MM, D0. YY) Ya,.26, 7% 
SSUE DATE (MM,O0D,YY) 28,29. 7% 
FIRST COUPON DATE (MM.0D0,YY) Y8,31,7% 
END OF CURRENT FERIOO 
(MM. DD, YY) Sa. 27,80 
SETTLEMENT DATE (MM.00,YY) 39,10,7% 


ACITRUED INTEREST I5 .271485308% CF FAR. 


WOLILD You LIKE To RE-RUN PROGRAM 
LIS ING NEW DATA (Y/N) +N 


ACCRUED INTEREST ON BONDS 17 


Practice Problem 


What is the accrued interest for settlement on 6/3/80, of a Federal Home Loan Bank Bond at 7.375% due 
8/25/82? The coupon payment dates are 2/25 and 8/25. (FHLB bonds use a 360-day year for 
calculations.) 

Answer: 2.00763889% of par. 


Program Listing 


10 PRINT "ACCRUED INTEREST ON BONDS" 

20 PRINT 

30° 060 PRINT "COMPUTE USING: " 

40 PRINT " 1) 340 DAY YEAR" 

0 FRINT " =) B65/364 DAY YEAR" 
40 PRINT " 3) END PROGRAM" 

79 FRINT 

SO PRINT " WHICH "5 

vO) INFUT T 

100 IF T = 1 THEN 130 

110 IF T = 3 THEN 820 

120 IF T = 3 2 THEN &®O 

130 PRINT 

140 FRINT "“COUFON RATE (2%) "3 

120 INFUT I 

140 PRINT 

170 FRINT "NUMBER CF COUPONS PER YEAR "$5 

180 INFUT WN 

Iva X1 = Oo 

ZOO PRINT 

“£10 PRINT "DOES THIS COUPON INCLUDE A" 

S15 PRINT "LONG FIRST YEAR PERION (Y/N) "3 
220 INFUT Z4 

230 IF Z% = "N" THEN 410 

240 IF Z# < > "Y" THEN 210 

2230 REM -- SEIF THIS SECTION IF FIRST FERIOO IS NOT LONG 
260 PRINT 

270 FRINT “BEGINNING OF FIRST FPERTOO" 

275 PRINT "(MM,.O0,YY) "3 

20 6©GOSUIB A580 

270 XS = A4 

200 REM --- ISSUE DATE IS DATE CURRENT BONDHOLDER OBTAINED THE BOND 
310 PRINT "ISSUE DATE (MM,00,YY) "3 

320 GOSUB 430 

330 REM -- XI = NUMBER OF DAYS FROM ISSUE TO END OF PARTIAL FERIO“ 
340 X1 = ABS (X= - A4) 

220 PRINT "FIRST COUPON DATE (MM,.00,YY) "3 
440 GOSUB 450 

370 REM -- X2 = TOTAL NUMBER OF DAYS IN FIRST FERIOO£ 
330 XS = ABS (X2 —- A4) 

S90 X1 = (Xz -— X1) / XB 

400 GOTO 440 

410 FRINT 

420 FRINT “BEGINNING OF CURRENT FERIO“O " 

425 PRINT "(MM,0D,YY) "5 
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4230 GOSUB 46450 
440 REM -- X3 = ABSOLUTE NUMBER OF DAYS FROM IMAGINARY DATE 
450 REM —-- 00/00/00 TO BEGINNING OF CURRENT PERIOD 
440 Xa = A4 
470 PRINT “ENO OF CURRENT FPERIOD" 
472 PRINT "(MM.OD,YY) "$3 
480 GOosuB 46450 
490 REM -- X4 = TOTAL NUMBER OF DAYS IN CURRENT FERIOQD 
200 X4 = ABS (X= -— A4) 
210 FRINT “SETTLEMENT DATE (MM.DD,YY) "5 
220 GOSUB 650 
20 REM -- X23 = NUMBER OF DAYS FROM BEGINNING OF 
240 REM -- CURRENT PERIOD To SETTLEMENT DATE 
= ABS (Xs - A4) 


et) XS 

2640 XS = (Xs 4 X4) + XI 

270 PRINT 

—20 FRINT "ACCRUED INTEREST IS "3¢(I 7 N) #® Xa3s"A OF PAR." 
270 FRINT 

400 PRINT “WOULD YoU LIKE TO RE-RUN PROGRAM" 

605 FRINT "USING NEW DATA (Y/N) "3 

410 INPUT Z¢ 

420 IF Z% = "¥" THEN 20 

420 IF Z2$ = "N" THEN 820 

6~A40 GOTO 400 

450 INPUT M.D Y 

440 IF T = 1 THEN S00 

&£7/O REM -- SUBROUTINE TO DETERMINE NUMBER OF DAYS BETWEEN 
64735 REM ~-~- IMAGINARY DATE 00/00/00 AND MM/DD/YY USING 3435/3464 
430 REM -- DAY YEAR. REF. ACCOUNTS FAYABLE & ACCOUNTS 


490 REM -- RECEIVABLE (WANG), F.255 
700 RESTORE 
710 DATA O,3.:524628,11,15,216,19,21,24,26 
2O FOR Ii = 1 TO M 
72Q REAL A4 
740 NEXT 11 
730 A4 = A4 + Y # 245 4+ INT (CY 7 4) + 1 + (M - 1) # BE + 0 
760 IF INT (¥ / 4) © 3 Y / 4 OR M > = THEN 770 
764 A4 = A4 —- | 
770 RETURN 
730 REM -- SUBROUTINE TO COMPUTE NUMBER OF DAYS FROM 
77QO REM —-- IMAGINARY DATE 00/00/00 TO MM/DD/YY USING 
BOO AF = (¥Y *# 3460) + (M # BO) + OD 
S10 RETURN 
e20 END 


240 YEAR. 


Reference 


Stigum, Marcia. The Money Market: Myth, Reality, and Practice. Homewood, Ill.: Dow Jones-Irwin, 1978. 
Pages 538-47. 


Continuous Interest Compounding 


This program calculates the future value of an investment for which interest is compounded 
continuously. You must enter the interest rate, the number of years that interest will accrue, and the 
amount of the initial deposit. The total value is based on the following formula: 


T=De!N 
where: 


T = total value after N years 

D = initial investment 

I = interest rate 

e 2.718281828... (base of natural logarithms) 


Example 


Dan deposits $800.00 at 7'4% interest, compounded continuously. How much will his account be worth 
in ten years? 
Answer: $1,693.60 


CONTINUOUS INTEREST COMPOUNDING 

ENTER THE ANNUAL INTEREST RATE 

TO BE FAIO ON THE ACCOUNT 

en 

ENTER THE NUMBER OF YEARS OF FRACTIONS 
QF YEARS THAT INTEREST WILL ACCRUIE 

S10 

ENTER YOWR INITIAL DEFOSTT 


TEOO 


WITH CONTINUOUS COMPOUNDING A DEROSIT Cr 
$500 GROWS IN 10 YEARS AT 7.54 TO 
$1473.64 


Practice Problems 


1. If George invests $5,000.00 at 9%, compounded continuously, how much will he have in seven 
years and three months? (Enter 7 years 3 months as 7.25 years.) 
Answer: $9,601.68 


2. Dr. Williams invests $70.00 for his niece on the day she is born. How much will she get when she 
turns 21, at 6'4% compounded continuously? 
Answer: $260.08 


Program Listing 


10 PRINT "CONTINUOUS INTEREST COMPOUNDING" 
20 PRINT "ENTER THE ANNUAL INTEREST RATE” 
20 FRINT "TO BE FAID ON THE ACCOUNT" 


40 INFUT I 
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“0 FF I < = O THEN 20 

£0 PRINT “ENTER THE NUMBER OF YEARS UF FRACTIONS" 

70 FRINT "OF YEARS THAT INTEREST WILL ACCRUE" 

mQ INFUT N 

70 IF N = = 0 THEN 40 

100 FRINT "ENTER YOUR INITIAL DEPOSIT" 

110 I[NFUT 0 

120 0 6oIF O < = O THEN 100 

130 PRINT "WITH CONTINUGUS COMPOUNDING A DEPOSIT OF" 
140 PRINT "$"303" GROWS IN "SN3" YEARS AT "31I3"42 To " 
120 FPRINT "$"3 INT (100 # (D0 # EXP (IT 7 100 # N)) + 5) / 100 
140 END 
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Rule of 78’s Interest 


This program computes the interest for each month of a loan in accordance with the rule of 78’s. You 
enter the total interest which would have been earned had the loan continued to maturity, and the 
number of months in the original period of the loan. The program then prints out a table, with the 
number of each month, the interest earned during that month by the rule, the interest earned so far, and 
the balance of (unearned) interest remaining at the end of that month. 


Example 


A 24-month loan calls for total interest of $10,000.00. What is the interest for each month of the loan? 
Answer: 


RULE OF 77ers INTEREST 

ENTER TOTAL INTEREST To BE EARNED 
TO MATURITY OF THE LOAN 

710000 

ENTER NO. OF MONTHS DURATION 

OF THE LOAN TO MATLIRITY 

Ya4 

MONTH MONTHS ADLUM, RAL. CIF 
MF LOAN INTEREST INT. INTEREST 


SOO mC) 4 OM) 


Pbibr, bo WG44.47 843. Sc 


1 

= Fis, SS S300 77OO 

4 FOO O00 7OOO 

at bbaitra &7 Sh66.67 Gans. ss 
ra 2 ES A300 S700 

7 AOC Avg S100 

st nibh Lo 7 2464.67 Fs, es 


< ar A000 4ooo 


1i Ghita, bo 7 jKPhb,&7 SOS, SI 
ach 7400 ZAQ 
at 400 72QOO 2200 


me 
_ t 


14 346,47 8146.47 1955.35 
15 SS, aS SS0O0 1200 

14 SOQ Herter 1200 

17 EEE Oe? 7ObG.,&7 Yas. A 
14 Sa, TS AIO 7OO 

1? 200 EOC BOC 

20 164,47 Vhbbig &7 AS. Ss 
wl 132, 2 OO ZOO 

2 100 IOC 100 

ct bibrg ba? VEE. GF Aa. oS 
4 mS SS OQQO w) 

FENNY BREAKAGE ADJUSTED IN LAST MONTH 
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Practice Problems 


1. Laurie took out a 36-month loan. Her total interest was $3,614.59. What was the balance of 
unearned interest if she terminated the loan after two years? 
Answer: $423.33 


2. Bob Johnson pays off a three-year loan two years early. If the total interest would have been 
$180.00, how much interest did he actually pay? 
Answer: $98.94 


Program Listing 


S PRINT "RULE OF 7a°S INTEREST" 

9 REM ROUNDOEFE FUNCTION 

10 DEF FN R(X) = INT (100 # X + .5) / 100 
20 PRINT "ENTER TOTAL INTEREST TO BE EARNEL” 
20 PRINT “TO MATURITY OF THE LOAN" 

40 INFLUT I 

40 PRINT "ENTER NO. OF MONTHS DURATION" 

70 FRINT “OF THE LOAN TO MATURITY" 

a0  INELUT T 

i0o Tl = T# (T+i1)7/2 

110 PRINT “MONTH MONTHS ACCUM. BAL. OF" 
120 PRINT "OF LOAN INTEREST INT. INTEREST" 
120 A = O 

129 REM PRINT TABLE 

140 FOR M= 170 T - 1 


170 t= FN ROCT - M+ 1) # IT / Ti) 
WO A= A + 
I1vOBR = I - A 


240 FRINT M: TABC Y)s.0: TARC 18&)3A: TABC 27): FN RC(B) 

2a0 NEXT M 

eat FRINT T3 TABC 2): FN ROB): TABRC 15):A + Bs TABC 27)30 
260 PRINT "PENNY BREAKAGE ADJUSTED IN LAST MONTH" 

2/0 END 
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Present Value of a Tax Deduction 


When evaluating an investment, the value of the tax savings is often a consideration. This program 
calculates the amount of any savings you might realize by deducting interest payments. 

You must enter the tax rate, the interest rate on the debt, the term of the debt (in years), and the 
amount of interest to be paid during each year of the term. 


Program Notes 


If the level of debt will be constant throughout the term of the investment, you may want to change the 
program to calculate interest amounts as a percentage of a fixed dollar debt amount. Make these changes. 


70 FRINT "NUMBER OF FERIOOS"s 

100 INPUT N 

1902 FRINT "ENTER AMOUNT OF DERT ($)"S$ 
104 INFUT Z 

110 F = 0 

(ZO FOR J = 1 TON 


130 PRINT Z # EF 
vO P = FP +t (2 # Ke TT) 7 CCL + ED WD 
200 NEXT 


What is the present value of the tax savings on projected interest payments of $4,000, $3,500, $4,500, 
$4,000, and $5,000 over the next five years if the tax rate is 48% and the interest rate on that debt will be 
19%? 

Answer: If the five interest payments are deducted from taxable income, the present value of the 
taxes saved is $6,044.74. 


PRESENT VALUE OF AN INTEREST TAX 
DE DLW T ION 


WHAT IS THE TAX RATE (4%) 748 
ENTER INTEREST RATE (4%) ?1? 
NUMBER OF PERIODS 33 

INTEREST AMQUNT FOR PERIOO ($) F4000 
TSO 
P4500 
74000 


5 S000 


1 
3 
4 
PRESENT VALUE OF DEDUCTION = #4044, 74 


WOULD YOU LIKE TO RE-RUN THIS PROGRAM 
WITH NEW DATA (Y/N) =N 
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Practice Problems 


1. If Nick buys a new truck for the shipping business he plans to start, the principal will be $6,250.00 
and the interest rate 16%. Nick will make interest payments of $1,000.00, $900.00, and $800.00 during 
the three-year term of the loan. If his new company will be in a 33% tax bracket, what is the present value 
of the taxes he will not have to pay when he deducts the interest payments? 

Answer: The present value of the tax savings realized by deducting the interest payments is $674.34. 


2. If the tax rate is 30% and the interest rate is 15%, what is the present value of taxes saved by 
deducting interest payments of $45.00, $40.00, $35.00, and $30.00 during the next four years? 
Answer: The present value of the tax savings here is $32.86. 


Program Listing 


10 FRINT "PRESENT VALUE OF AN INTEREST TAX 
1s PRINT "DEDUCTION" 

“=O PRINT 

20 PRINT "WHAT IS THE TAX RATE (2%) "3 

40 INFUT T 

“0 T = T / 100 

£0 PRINT "ENTER INTEREST RATE (2%) "3 

70 INPUT FE 

#0 BK = FE / 100 

YO FPRINT "NUMBER OF FERTIOOS "$ 

100 YINFUT N 

110 FP = 0 

120 6 FOR J = 1 TON 

130 6oIF 0 > 1 THEN 140 

140 FRINT “INTEREST AMOUNT FOR FPERIOU ($) "$3 
120 GOT 170 

140 FRINT " "3 
170 PRINT 3" "3 

180 INPUT Z 

vor = FP + (Z * T) 7 (C1 + FE) * 

ZOO NEXT J 

210 PRINT 

220 PRINT "PRESENT VALUE OF DEDUCTION = "5 
22a PRINT INT (F # 100 + .5) / 100 

“SO FPRINT 

240 PRINT “WOULD YOU LIKE TO RE-RUN THIS FROGRAM" 
245 FPRINT “WITH NEW DATA (Y/N) "3 

220 O[NPLUT Z# 


240 IF Z% = "¥" THEN 20 

270 IF Z$ <= => "N" THEN 240 
2E0 END 

Reference 


Solomon and Pringle. An Introduction to Financial Management. Santa Monica, Calif.: Goodyear 
Publishing Co., 1977. Pages 376-78. 


Future Value of an Investment (Uneven Cash Flow) 


Often it is useful to project the future (or terminal) value of monies to be received from an investment. 


The accept/reject criterion stipulates you should reject any investment whose future value of all cash 
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flows, including the initial investment, is less than zero. This program computes that value, based on the 
term (in years), the growth rate, and the cash flow amounts for each year. The growth rate should be the 


rate at which you have alternative opportunities to invest. 


Example 


Aunt Lonna wants to start a college fund for her nephew, Brian. She plans to put $200.00 into savings 
this year, $350.00 next year, and $250.00 the following year. The interest rate is 6%. What will Brian’s 
fund be worth at the end of the third year? 

Answer: Brian’s fund will be worth $845.72. 


FUTURE VALUE CF AN INVESTMENT 
NUMBER WF CASH FLUWS Ss 
GROWTH RATE (24) V4 
(ENTER INFLOWS AS FOSITIVE: 


OUTFLOWS AS NEGATIVE) 
AMOUNT OF CASH FLOW 1 F200 


FUTURE VALUE AT END OF FPERIOO 3 = $845.72 


DO YOu WANT To RE-RUN THIS FROGRAM 
WITH NEW DATAY (Y/N) SN 


Practice Problems 


1. What will the value of $25,000 be in eight years if another $25,000 is invested in year three and 
$10,000 is withdrawn during the fifth year? The growth rate is 15%. 
Answer: $101,575.68 


2. If the growth rate above was 18%, what would the future value be? 
Answer: $120,400.47 


Program Listing 


10 PRINT "FUTURE VALUE OF AN INVESTMENT" 

20 DEF FN ACX) = INT (X # 100 + .5) / 100 
30 FRINT 

40 PRINT " NUMBER OF CASH FLOWS "3 
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20 INPUT WN 

£0 FRINT " GROWTH RATE (4) "3 

7O INPUT R 

sO R = KR / 100 

70 PRINT 

100 T= 0 

119 FRINT "(CENTER INFLOWS AS POSITIVE, " 

115 FRINT ". QUTFLOWS AS NEGATIVE)" 

120 FOR J = 1 TO N 

130 IF J > 1 THEN 140 

140 PRINT "AMOUNT OF CASH FLUW "5 

150 GOTO 170 

140 PRINT " "5 

170 PRINT 13" "5 

120 INPUT & 

ivO REM ADD FUTURE VALUES OF EACH YEAR BASED ON RATE OF R 
200 T = T + FN ACC # (1 + Rd * CN ~ )) 

210 NEXT J 

220 FRINT 

230 PRINT "FUTURE VALUE AT END OF FERIOO“ "sNn3" = $"3T 
240 REM RESTART OF END PROGRAM? 

2aQ PRINT 

260 FPRINT "OO You WANT TO RE-RUN THIS PROGRAM" 
265 FRINT "WITH NEW DATAY (CY/N) "3 

2/0 INFUT Z¢ 

2oO IF Z% = "¥" THEN 30 

27O IF Z$ =< > "N" THEN 240 

300 END 


Reference 


Solomon and Pringle. An Introduction to Financial Management. Santa Monica, Calif.: Goodyear 
Publishing, 1977. 
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Net Present Value of an Investment 


Net Present Value (NPV) is defined as the present value of all cash flows associated with an investment, 
including the initial outlay. The NPV accept/reject criterion for an investment is to accept any 
investment whose NPV is greater than zero. 

To use this program, you first enter the amount of the initial outlay, the term of the investment (in 
years), the required rate of return, and the cash flow amounts for each year. 


Program Notes 


To obtain the present value of an investment, enter an initial investment of zero. 


Example 


Jack has an investment opportunity that requires an initial investment of $10,000 and offers cash returns 
of $3,000, $5,000, and $4,000 over the next three years. Jack wants at least 15% return on his money. 
What is the NPV of this investment? Should Jack accept? 

Answer: The NPV of this investment is —$980.52. Jack should not accept. 


NET FRESENT VALUE 


INVESTMENT Y10000 
NUMBER OF YEARS Y3 
REGUIRED RATE OF RETURN (4) 15 


ENTER CASH FLOW AMOUNTS EACH YEAR 
(ENTER OUTFLOWS AS NEGATIVE). 


INFLOW FOR YEAR 1 ‘3000 


PA000 


NET FPRESENT VALUE = $ -78O0, 32 


DO YoOLt WANT To RE-RUN THIS FROGRAM 
WITH NEW DATA: (Y/N) 7N 


Practice Problems 


1. Doris holds a note for $1,000.00 which matures in two years, but she wants to invest that money 
now in new sound equipment. Her bank will buy the note at a 10% discount. What price is the bank 
offering? (Hint: This is a present value calculation.) 

Answer: The bank will pay Doris $826.45 for the note. 


2. What is the NPV of a $1,500 investment which offers returns of $800.00 year 1, $900.00 year 2, 
requires $1,000 more to be invested year 3, returns $900.00 year 4, and $800.00 year 5? Comparable 
five-year investments currently offer a 15% return. 

Answer: The NPV of this investment is $130.98, quite acceptable. 
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Program Listing 


10 FRINT "NET PRESENT VALLE" 


ZO DEF FN ACX) = INT (X # 100 + 25) / 100 

20 REM ADD DIM CCN) STATEMENT AT LINE 40 

a5 REM IF MAXIMUM NUMBER OF CASH FLOWS IF > 10 
40 REM 


SOQ PRINT 

40 PRINT "INVESTMENT "3 

7Q) INFUT 0 

20 CO = -— FN A(to) 

70 FRINT "NUMBER OF YEARS "3 

100 INPUT WN 

110 FPRINT "REQUIRED RATE OF RETURN (2%) "3 
120 INFUT R 

130 R= FR / 100 + I 

140 F = 0 

120 FRINT 

140 FPRINT “ENTER CASH FLOW AMOLINTS EACH YEAR" 
145 FRINT "(CENTER OUTFLOWS AS NEGATIVE). " 
170 FRINT 

1300606 FOR U o!hUu= hcl UTOUWN 

17vO 0 6oTF UU) 6 > 61 CO THEN 220 

ZOO FRINT “INFLOW FOR YEAR "3 

210 Gata 20 

220 FRINT " "5 

220 PRINT ws" "3 

240 INPUT (0) 

240 NEXT cl 

270 T = oO 

SSO REM ADD PRESENT VALUES FOR EACH YEAR BASED ON RATE OF R 
“70 FOR J = 1 TON 

3200 T = T + FN ACEC.) #7 (R ™ )) 

310 NEXT J 

320 FRINT 


220 PRINT "NET FRESENT VALUE = "S FN ACT) 
340 REM RESTART OF END FROGRAM? 

200 £FRINT 

360 FRINT "Dd You WANT To RE-RUN THIS FPROGRAM" 
245 PRINT "WITH NEW DATA: (Y/N) "5 

270 INPUT Z% 

330 IF Z$ = "Y" THEN So 

270 TF Z$ <= > "N" THEN 340 

400 END 

References 


Rosen, Lawrence R. Dow Jones-Irwin Guide to Interest. Homewood, Ill.: Dow Jones-Irwin, Inc., 1974. 


Solomon and Pringle. An Introduction to Financial Management. Santa Monica, Calif.: Goodyear 
Publishing, 1977. Pages 261-62. 
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Lease/Buy Decision 


This program computes the present value of the cost to lease, and the present value of the cost to buy. 
Any difference between those amounts is the advantage of leasing or of buying. It is assumed that the 
asset would be financed over the same period of time that it would be leased. 

To use the program, enter the price of the asset, the interest rate, the term in years, the salvage value 
at the end of that term, the tax rate, annual amount of loan payments, and the annual amount of lease 
payments. The program outputs the present value of the cost to buy, the present value of the cost to 
lease, and the difference between those amounts. 

While this program may be instructive in pointing out decision factors you may have overlooked, it is 
not meant to replace your judgment. Capital planning requirements and lease/loan terms must 
ultimately guide your decision. In general, depreciation and salvage value reduce the cost of buying. 
However, if an asset is subject to rapid obsolescence, leasing may be the less expensive choice. 


Program Notes 


This program is actually a modified version of the Net Present Value of an Investment program. As 
such, you may find it instructive of modifications you may make to any of the programs in this book. 


Acme Landscaping has need for a small truck for everyday use. They are considering buying a truck for 
$6,000. Salvage value after four years is estimated to be $2,000. The bank will lend $6,000 at 16% 
interest to be repaid in four equal installments of $2,145. The lease will cost $2,000 per year. Taxes are 
40%, and straight-line depreciation of $1,000 per year will be used. What is the present value of the cost 
to buy? What is the present value of the cost to lease? Should Acme lease or buy? 

Answer: The present value of the loan is $3,011.90. The present value of the lease is $3,357.82. Acme 
Should buy the truck. 


LEASE/BUY DECISION 


ENTER THE CosT TO ACGUIRE ASSET 
(PFRINCIFAL OF LOAN) 74000 

ENTER THE INTEREST RATE (%) 714 
ENTER THE TERM IN YEARS 74 

WHAT IS THE SALVAGE VALLE 

AT THE END OF 4 YEARS 72000 


WHAT IS THE TAX RATE (4%) 740 
ENTER THE ANNUAL AMOLINT 

NF LOAN PAYMENTS 72145 

ENTER THE ANNUAL AMOLINT 

NF LEASE FPAYMENTS 72000 


ENTER THE DEPRECIATION. AMQLINT 
FOR EACH YEAR 


YEAR NUMBER 1 ?1000 
z P1000 
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21000 


fs ts 


71000 
FRESENT VALUE OF COST OF LOAN =$23011. 7 
PRESENT VALUE OF COST OF LEASE =$3237, 32 
ADVANTAGE OF BUYING =$245, 72 
WOULD YOU LIKE To RE-RUN THIS PROGRAM 


WITH NEW DATA (Y/N) 7N 


Practice Problems 


1. In the above example, what if the lease is $1,200 per year? 
Answer: Leasing would be the best choice. The present value of the lease would be $2,014.69. The 
leasing advantage would be $997.21. 


2. Industrial Supply Company needs a computer for their in-house use. The model they want will cost 
$30,000, to be financed at 17% interest over five years. After five years ISC plans to sell the computer for 
$10,000 and buy a larger model. The tax rate is 48%, annual loan payments will be $9,375.00, and a five- 
year lease on the equipment would cost $3,500.00 per year. Depreciation would be $6,000.00 the first 
year, $5,000 year 2, $4,000 year 3, $3,000 year 4, and $2,000 year 5. What is the advantage of leasing or 
buying? | 

Answer: ISC would realize an advantage of $7,362.24 if they leased the new computer. 


Program Listing 


10 PRINT "LEASE/BUY DECISION" 

20 REM — FUNCTION TO ROUND TO NEAREST HUNDREDTH 
20 DEF FN A(X) = INT (X * 100 + 0.5) / 100 
40 PRINT 

SQ PRINT “ENTER THE COST TO ACQUIRE ASSET" 
SS PRINT "(PRINCIPAL OF LOAN) "s 

40 INPUT Bi 

70 PRINT “ENTER THE INTEREST RATE (%) "3 
eO INPUT 11 

90 REM — CONVERT INTEREST RATE TO DECIMAL 
100 I1 = Ii / 100 

110 PRINT "ENTER THE TERM IN YEARS "s 

i20 INPUT Yi 

130 PRINT "WHAT IS THE SALVAGE VALUE" 

135 PRINT "AT THE END OF "sYis" YEARS "$ 
140 INPUT 31 

150 PRINT 

140 PRINT "WHAT IS THE TAX RATE (%) "5 

170 INPUT Ri 

i180 REM — CONVERT TAX RATE TO DECIMAL 

170 Ri = Ri / 100 

200 PRINT "ENTER THE ANNUAL AMOUNT" 

205 PRINT "OF LOAN PAYMENTS “'s 

210 INFUT Al 

220 PRINT “ENTER THE ANNUAL AMOLINT" 

225 PRINT "OF LEASE FAYMENTS "s 

230 INFUT Az 


LEASE/BUY DECISION ch 


240 REM —- RESET TOTAL AMOUNTS Ta ZERO 
250 Tl = 0 
240 Li = © 
270 PRINT 
220 = FPRINT "ENTER THE DEPRECIATION AMOLINT" 
285 PRINT "FOR EACH YEAR" 
270 ©=0FPRINT 
300 REM —- LOOP To INFUT, CALCLILATE. AND ACCUMULATE 
305 REM - VALLIES EACH YEAR 
310 FOR Z = 1 Tu Yi 
3220 IF Z > 1 THEN 3320 
s230 PRINT "YEAR NUMBER "3 
240 GOTO 240 
z50O PRINT " ms 
340 PRINT Z3" "3 
370 =INPFUT [1 
220 REM -—- CALCULATE INTEREST AMOLINT FOR EACH YEAR 
3270 BO = ABS (B1 —- FN ACB1 # (1 + T1))) 
400 REM —- CONVERT [11 TO FRESENT VALUE OF COST 
405 REM -—- OF OWNING EACH YEAR 
410 01 = FN AC(AL - FN ACCDI + BO) # R1)) 7 (C1 + T1) * Z)) 
470 REM -— SUBTRACT ANNUAL PAYMENT, 
so REM - ADT ANNUAL INTEREST To PRINCIPAL 
430 Bil = Bl —- Al + BO 
440 REM - SUM FPRESENT VALUE AMOUNTS OF EACH YEAR 
420 T1 = T1 + Oi 
440 REM —- COMPUTE PRESENT VALUE OF COST To LEASE FOR EACH YEAR 
470 Li = tl + FN AC(AS - (AZ # R1)) 7 (1 + I1) * Z) 
430 NEXT Z 
470 REM —- SUBTRACT FPRESENT VALUE OF SALVAGE VALLE 
47= REM - FROM TOTAL COST To OWN 
—0O0 Tl = Ti - FN ACS1 / (1 + I1) * YL) 
“10 REM - OUTPUT RESULTS 
220 PRINT 
220 FRINT "PRESENT VALUE OF COST OF LOAN =$"3 FN ACT1) 
240 PRINT "PRESENT VALUE OF COST OF LEASE ="; FN A(L1) 
a0) PRINT 
“60 IF Li < Til THEN S?0 
270 PRINT "ADVANTAGE OF BUYING =#"3 FN ACLI - T1) 
SO GoTo 400 
“70 FRINT "ADVANTAGE OF LEASING =$"s FN ACT1 - LI) 
6400 PRINT 
£10 REM - RESTART OR END PROGRAM? 
420 PRINT “WOULD YOL LIKE To RE-RUN THIS PROGRAM" 
425 PRINT "WITH NEW DATA (Y/N) "3 
4320 INFLIT 7% 
640 IF 7% = "YY" THEN 40 
450 [FF Z$ <2 = "N" THEN 420 
&4Q EN 
Reference 


Chase and Aquilano. Production and Operations Management. Homewood, Iil.: Richard D. Irwin, Inc., 
1977. Pages 138-40. 
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Syndicated Investment Analysis 


This program evaluates tax savings and net cash flows from an investment by a syndicate, or group of 
investors, to a participating investor. The program considers the investor’s tax bracket, as well as the 
proportion of the original investment, participation in cash income, taxable income/loss, and tax credits. 

To use this program, enter the length of the analysis in years and the first year of syndication. Then, 
for each year, enter the cash income for the syndicate, followed by its taxable income. Enter the year 
(1,2, and so forth) and total investment for that year by the syndicate. Then, enter the year and amount 
of investment or other tax credits (entered as a negative number), or credit recapture (entered as a 
positive number). Next, enter allocation percentages for the investor: percentage of total investment, 
cash, income, and taxable income (or loss) and credits. The final entry is the investor’s tax bracket, 
entered as a percentage. 

The program then prints its analysis, which shows the investor his/her original investment, cash 
income, taxable income, tax saving (tax savings are negative; tax paid is positive), net end-of-year cash 
flow and cumulative net cash flows. You may repeat the analysis for different tax brackets when the 
program asks for a new tax bracket to consider. (All other investment factors remain as you last entered 
them.) Enter a tax bracket of 999 to respecify the percentage allocations. Enter an investment allocation 
percentage of 999 to end the program. 


Program Notes 


The program is set for 40 years of projections. You can change this amount by modifying line 20 as 
follows: 


20 N9 = I 


Make sure that you replace the expression I with a constant equal to the maximum number of years. 


Example 


Consider this syndicated investment: An income property with a $35,000 down payment which will 
generate $4,500 cash over the first four years, $5,200 over the next four years, and $5,500 over the 
remaining five years. The investment earns a $3,500 investment tax credit in the first year. Taxable 
income will start at — $3,800 and increase by $1,100 per year for the life of the investment. 

The investor is in the 55% tax bracket, and is contributing 30% of the original cash outlay. 
Participation is 30% on cash income and taxable income. How will this investor run the program? 

Answer: The printout below shows the investor’s portion of cash income, tax savings, net and 
cumulative cash flow. At the end of the investment projection, cumulative cash to this investor is 
$4,432, and the investment is sheltered until the end of 1985, when a tax on $109 must be paid. 
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ENTER THE FIRST YEAR UF 
SYNDICATION (E.G, 1751) Five 
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FOR ENTIRE SYNDICATE, ENTER CASH INCOME 
FOR EACH YEAR OF PROJECT TON 
YEAR MASH INCOME PAO 
YEAR INCOME F400 
YEAR INCOME T4500 
YEAR INCOME P4300 
YEAR INCOME SOO 
YEAR INCOME YOO 
YEAR INCOME YaILOO 
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FOR ENTIRE SYNDICATE, ENTER TAXGEBLE 
INCOME FOR EACH YEAR OF PROJECTION 
POSITIVE FOR INCOME NEGATIVE FOR Liss 


YEAR 1 TAXABLE = Y-3800 
YEAR 2 TAXABLE = Y-2700 
YEAR = TAXABLE = ¥-1400 
YEAR 4 TAXABLE = ¥--hO0O 
YEAR 3 TAXABLE = Y400 
YEAR 6 TAXABLE = $1700 
YEAR 7 TAXABLE = F200 
YEAR & TAXABLE = Y3rvoo 
YEAR 2 TAXABLE = FINO 


YEAR 190 TAXABLE 
YEAR 11 TAXABLE 
YEAR 1i2 TAXABLE 
YEAR 13 TAXABLE 


24100 
77 ZOO 
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ENTER YEAR OF VENTURE (1, 2. ETC.) AND 
AMOUNT OF INVESTMENT BY ENTIRE GROLF 
MF INVESTORS THAT YEAR. AFTER LAST 
YEAR, ENTER ?erovo, Oo 

P12 35000 


ENTER YEAR OF VENTURE (1, 2. ETC.) AND 
AMQUNT WF INVESTMENT CREDIT OF OTHER 
SIMILAR CREDIT FOR ENTIRE SYNDICATE 
(AS NEGATIVE), AND CREDIT RECAPTURE 

(AS POSITIVE >) FIGURE. AFTER LAST 
ENTRY, ENTER 322929, 0 

71,-2500 


ENTER FERCENTAGE ALLOCATIONS ¢€O-100%) 
FOR THIS INVESTOR. . 
POT. OF INVESTMENT (999=ENDI) YO 
PICT. OF CASH INCOME 30 
PCT. OF TAXABLE INCOME 
(OR LOSS), ANDO CREDITS $30 
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INVEST- CASH TAX NET CUMULATIVE 
MENT INCOME SAVING CASH CASH 
19500 JSsQ -1677 -7473  ~-74AFS 
QO 1s530 8-444 1776 —ah FF 
0) 1350 -—264 1414 ~4O&s 
Q 1320 Eo 14:32 “2 Els 
© 1360 ye 1441 ~1170 
() 1340 SE1 17 1% 

Q) 1260 4&2 1oO% 1207 
Q) 1240 644 214 eles 
O 1450 820 oct 4S 
Q 1450 1007 aes oe I 
QO 1450 1158 AAs Ares 
() 450 13370 0) 4s 
Q 1450 sn) sd 44s 


THIS SCHEDULE OLSREGARDS MINIMLIM TAX, 
QDISALLOWANCE OF INVESTMENT INTEREST 
SE, LES: 


EXPENSE» 


COE: 


ENTER TAX BRACKET 


(P2C=CHANGE ALLOCATION: >) 


ENTER FERCENTAGE 


FOR 
PCT. 


THIS 


Practice Problems 


ALLOCATIONS 
INVESTOR... 
OF INVESTMENT (?799=END) 2995 


ETC. 


en ey 7 ey Dew) 


C(O-1O0%) 


PRACTICAL BASIC PROGRAMS — APPLE II 


1. Alvin wants to start a musical career with his brothers Simon and Theodore. Alvin is in the 40% tax 
bracket. He will contribute 45% of the $30,000 needed to build a recording studio. He will participate 
20% in the cash earnings, and 45% in the taxable earnings of the company. Alvin expects that the studio 
will generate $8,000 cash per year for the first two years. A further investment of $15,000 will come up in 
year 3 for new equipment. The studio’s taxable earnings will start at $4,200, increasing by $1,000 each 
year. Cash income for the recording studio will increase to $12,000 per year from year 3 to year 10 (the 
last year of projection). 

What will Alvin’s cumulative cash flow be from this investment? In what year will Alvin have to start 
paying taxes on his share of the investment? Assume that the studio will earn a 10% investment tax 


credit for the initial cash outlay as well as the $15,000 in year 3. 


Answer: Alvin’s cumulative cash flow will be $3,635 at the end of year 10. Assuming the first year is 
1980, Alvin will have to start paying taxes on this investment in 1985 ($144). 
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2. Fred wants to start a helicopter tour service. He is in the 65% tax bracket, and will participate in all 
aspects of the syndicate at 51%. The initial investment for a four-passenger helicopter is $12,500. Fred 
plans on trading up to a six-passenger helicopter after three years. The group will receive a $6,500 tax 
credit in year 1. If they trade up in year 3, they will receive an $8,500 tax credit, and will have to invest 
another $19,000. They will sell the four-passenger helicopter in year 4, losing $4,167 from credit 
recapture. Cash income will start at $40,000 per year, growing to $48,000 per year at the start of year 3, 
up until year 8 (the final year of projection). Taxable income starts at —$9,000, growing by $2,000 every 
year. 

What will the total cumulative cash flow be for the eight years of projection? How will the credit 
recapture affect him in year 4? 

Answer: Total cumulative cash flow will be $182,441. Fred will have to pay $1,131 in taxes in year 4, 
due to the credit recapture. 


Program Listing 


1 FRINT "SYNDICATED INVESTMENT ANALYSIS" 
= PRINT 
7’ REM ROUND-OFF FUNCTION 
10 DEF FN R(X) = INT (X + 0.5) 
3s REM NY? = MAXIMUM YEARS FOR PROJECTION 
1’ REM AND MAXIMUM DIMENSION FOR LINE 30 
ZO NY = 40 


20 0 ©6TTIM CON). UCN), TON?) LION?) 

S00 PRINT "FOR HOW MANY YEARS 00 You WANT" 

“£10 FRINT "THIS PROJECTION (LIMIT: “sNnvs") "5 
220 INFUT Y 

2ewt IF Y > NY THEN 200 

230 PRINT 

~40 FRINT “ENTER THE FIRST YEAR OF" 

220 PRINT "SYNDICATION (E.G. 1781) "3 

“£60 ONFUT Yi 

270 PRINT 

230 FPRINT "FOR ENTIRE SYNDICATE, ENTER CASH INCOME" 
270 PRINT "FOR EACH YEAR OF PROJECTION " 

200 FOR [I = 1 Ta Y 

310 PRINT "YEAR "313" CASH INCOME = "5 

320 INFUT (CT) 

240 NEXT I 

220 PRINT 

2620 PRINT "FOR ENTIRE SYNDICATE, ENTER TAXABLE" 
370 FRINT “INCOME FOR EACH YEAR OF FPROJECTION" 
3060 PRINT "FOSITIVE FOR INCOME NEGATIVE FoR Loss" 
37O FOR I = 170 Y 

400 PRINT "YEAR "3135" TAXABLE = "3 

410 INPUT TCI) 

430 NEXT I 

440 PRINT 

420 FRINT "ENTER YEAR OF VENTURE (1, 2. ETC.) AND" 
440 FPRINT "AMOUNT OF INVESTMENT BY ENTIRE GROUP" 
470 PRINT "OF INVESTORS THAT YEAR. AFTER LAST" 
430 FRINT “YEAR, ENTER ?37279,0" 

470 INPUT I,.X0 

200 TF I = 279999 THEN S30 

O35 GCI) = XO 

220 GOTO 420 
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FRINT "ENTER YEAR OF VENTURE (1, 2. ETC.) AND" 
FRINT “AMOUNT OF INVESTMENT CREDIT OF OTHER 
FRINT "SIMILAR CREDIT FOR ENTIRE SYNDICATE" 
PRINT "(AS NEGATIVE), AND CREDIT RECAPTURE" 
FRINT "(AS POSITIVE ) FIGURE. AFTER LAST" 
PRINT “ENTRY, ENTER ?Y999, 0" 

INFLUT T.X0O 

IF J] = 99999 THEN 640 
Ui¢I) = XO 

BOTO 400 

FRINT 

PRINT “ENTER PERCENTAGE ALLOCATIONS (0-1007%) 
PRINT “FOR THIS INVESTOR..." 
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PRACTICAL BASIC PROGRAMS — APPLE II 


PRINT 


PRINT "PCT. 
INPUT Fl 
IF Fl > 
P1 / 
PRINT " 
INPUT P2 
Pa / 
PRINT " 
PRINT " 
INFUT FS 
= Pa / 100 
PRINT 
PRINT 


QF INVESTMENT (?99SEND) "s 
993 THEN 
100 

PCT, 


2170 


OF CASH INCOME "s 


100 
FCT. OF TAXABLE INCOME 
(OR LOSS), AND CREDITS "3 


~“: 
dine 


"ENTER TAX BRACKET" 

PRINT "(999=CHANGE ALLOCATIONS) "s 
INPUT T1 
IF Ti > 
PRINT 


70 THEN 440 

"RESULTS FOR INVESTOR IN "3Tl 
FRINT “AZ TAX BRACKET" 

1 = T1 / 100 

PRINT 
PRINT 
FRINT 
PRINT 
PRINT 
FRINT 
1 = 90 
FOR I 1770 ¥ 

FN R(CF 1 # wICI)) 

FN RCPS # ¢1I)) 

FN RCPS # TCI) # T1 + PS # UCI)) 
o- K 


"YEAR": TAR( 4)3"INVEST-"3 
"TAX": TAB( 24)3"NET"$ TAB( 
TAB( 7)3"MENT"$ TAB( 12)3 "INCOME" 
TAB( 24)3 "CASH": TAB( 33)3 "CASH" 


+ TAE ( 
PRINT V3 T 
IF I / 3 
PRINT 
NEXT I 
REM FRINT DISCLAIMER/BLANE LINES 
PRINT "THIS 
FRINT "“DISALLOWANCE OF INVESTMENT INTEREST" 
PRINT "EXFENSE, CODE SEC.133, ETC." 


TAB(C 14)3 "CASH"S 
20)3 "CUMULATIVE" 
TAR ( 


SCHEDULE DISREGARDS MININUM TAX,' 


TABC 20)3 


17)3 "SAVING"; 


Iv); 
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2130 PRINT 
2140 FRINT 
2150 FRINT 
2160 GOTO 710 
2170 END 
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Depreciation Switch 


An accelerated depreciation method provides for greatest depreciation in the earlier years. At some 
point, switching to a straight-line depreciation will allow a larger amount to be depreciated in later years 
than could be done by continuing to use the accelerated method. 

Calculations are made using a fixed cost of $1 million. The actual cost of the asset involved is 
unimportant. The million-dollar cost serves only to separate close calculations. Enter the depreciation 
method to use for this asset, in percent (that is, 125, 150, 200, and so forth); the useful life of the asset, 
in years; and the number of months of depreciation the first year of the useful life (a full first year should 
be entered as 12 months). 


Champion Products acquired a plastic injection machine that has a useful life of five years. Six months’ 
depreciation remains in this fiscal year, and Champion plans to use 200% declining balance depreciation. 
When should they switch from declining balance method to straight-line depreciation in order to 
maximize the amounts depreciated? 

Answer: Champion should switch methods in the fifth year. 


DEPRECIATION SWITCH 

ENTER METHOD. IN FERCENT (O=END) F200 
ENTER USEFUL LIFE OF ASSET, 

IN YEARS “'S 


ENTER NUMBER OF MONTHS DEFPRECTATION 
LEFT IN FIRST YEAR 74 


YEAR OF SWITCH = & 


ENTER METHOD, IN FERCENT (O=END) YO 


Practice Problems 


1. In the above example, what if 12 months of depreciation remains in the current fiscal year? 
Answer: The switch should be effected in the fourth year. 


2. Using 150% depreciation, when should an asset with an eight-year life be depreciated by the 
Straight-line method, assuming a full year’s depreciation remains in the first year? 
Answer: The switch to straight-line should be made in the fourth year. 


Program Listing 


10 FRINT "DEPRECIATION SWITCH" 

20 REM - LESE MILLION DOLLAR COST Ta 
20 REM - SEPARATE CLOSE CALCULATIONS 
40 © = 1E + 4 


DEPRECIATION SWITCH 


FO REM -—- RESET ACCUMLILATED DEPRECIATION To ZERO 

40 A = O 

70 PRINT 

sO PRINT "ENTER METHOD, IN PERCENT (O=END) "3 

70 #INFUT T 

100 IF T = © THEN 350 

110 T = T / 100 

120 PRINT "ENTER USEFULL LIFE OF ASSET, " 

125 PRINT "IN YEARS "$ 

130 INFUT L 

1490 IF L > = 3 THEN 170 

150 PRINT “LIMIT 3 YEARS MINIMUM LIFE, " 

155 PRINT "FLEASE RE-ENTER. " 

140 GOTO 120 

170 FPRINT "ENTER NUMBER OF MONTHS DEPRECIATION" 

175 PRINT "LEFT IN FIRST YEAR "3 

180 INFUT M 

170 Y = 1 

[OO 6©REM —- CALCULATE DEPRECIATION ACCUMULATED IN THE FIRST YEAR 
“10 A = INT (((M ¢/ 132) # (T 4 LL) # ©) # 100 + O35) / 100 
220 Y = Y + 1 

2230 REM —- COMPUTE AMOUNT OF DEPRECIATION THIS YEAR 
240 DO = INT (((T 4 L) #® (0 - Ad) # 100 + OLS) / 100 
250 REM - IF DEPRECIATION [5 LESS THAN VALLIE 


240 REM -- DIVIDED BY REMAINING LIFE. FRINT YEAR NUMBER 
270 IF DO = (0 - Ad # (L - ¥ + 1 + (12 - M) 7 12) THEN 310 
250 REM - IF NOT. INCREMENT ACCUMULATED DEPRECTATIUN 


290 A= A+ D 

isle) GOTO 220 

310 PRINT 

220 PRINT "YEAR OF SWITCH = "SY 
330 PRINT 

40) BOT 40 

250 END 


References 


U.S. Internal Revenue Service Code, Section 167(b) and Section 167 (e) (1). 


U.S. Treasury Department, Internal Revenue Service. Regulations, Sections 1.167(b)-0, 1.167(b)-1, 
1.167(b)-2, and 1.167(e)-1. 
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Apportionment by Ratios 


This program divides a quantity into the proportion that each of a group of numbers bears to the sum of 
that group. You are first asked for the number of decimal places that you wish shown from whole 
numbers down to 13 decimal places (if your computer is that accurate). You then enter the value to be 
apportioned, and the number of parts into which it is to be divided. You then enter each component of 
the group to be used as the basis for apportionment. The program prints out a table that shows each of 
these amounts, the percentage each is of the group total, and the corresponding apportioned amount. At 
the conclusion, it prints the totals of these three columns. 


Example 


Ten employees at Widgets, Inc., are receiving bonuses from a $30,000 pool. If each receives a share 
proportionate to his salary, how much does each one get? 


Name Salary 
Abelson $54,000 
Boucher $47,000 
Charleston $40,000 
Dryden $33,500 
Evans $29,750 
Freisner $26,000 
Goodine $24,500 
Holloway $21,000 
Ishikawa $17,500 
Johnson $15,000 


Answer: 


AFFORTIONHENT BY RATIOS 

ENTER THE NUMBER OF DECIMAL 

PLACES OF ROUNDING Yall WANT: 

QO FOR WHOLE NUMBERS, 1 FOR TENTHS, ETC. 
UF TO Y, 


ENTER TOTAL Ta BE AFFUORTIONED 


PRO000 
ENTER NUMBER OF FORTIONS 


710 

ENTER AMOUNT J 
Pa4000 
ENTER AMOUNT 23 
747000 


ENTER AMOLINT 3 
FAOOOO 
ENTER AMULINT 4 
333500 
ENTER AMOQLINT & 
727750 
ENTER AMOLINT 4 
72746000 
ENTER AMOUNT 7 


APPORTIONMENT BY RATIOS 


724200 

ENTER AMOUNT & 

271000 

ENTER AMOUNT 

717500 

ENTER AMOLINT 10 

215000 
AMOLINT FERCENT APPORT ICNEL 
24000 17.52 S25. 47 
47000 15.25 4574.21 
40000 12.78 Ba72, v4 
3500 10.87 2260, 34 
29750 7.4 SOV, Se 
Z4Q000 =o. 4:3 2asO, 4] 
P4soo 7 PS 2384, 42 
~1000 4.1 2043.5 
17500 abe iS 1703.16 
15000 4,84 1457.84 

TOTALS 208250 100,00 320000 


LAST ITEM ADWSTED WHERE NECESSARY 


Practice Problems 


1. A mayor running for re-election wants to divide his campaign workers among the city’s six districts 
based on the population of each district. He has 42 campaign workers, and the districts are populated as 
follows: District 1: 29,842; District 2: 17,420; District 3: 14,625; District 4: 24,314; District 5: 21,209; 
District 6: 18,956. How many workers should he place in each district? 

Answer: District 1: 10; District 2: 6; Disrict 3: 5; District 4: 8; District 5:7; District 6: 6. 


2. A winery has 120 bottles of wine that it wants to distribute among its employees. If the wine is 
divided in proportion to each employee’s seniority, how much wine does each employee get? 


Name Years Employed 
Jones 22 
Romero 18 
Lippitt 14 
Doyle 8 
Peterson 4 
Covey 2 
Miller 2 
Bennett ] 


Answer: Jones: 37 bottles; Romero: 30 bottles; Lippitt: 24 bottles; Doyle: 14 bottles; Peterson: 7 
bottles; Covey: 3 bottles; Miller: 3 bottles; Bennett: 2 bottles. 


Program Listing 


10 FRINT "APPORTIONMENT BY RATIOS" 

2“O DIM AC1OO) 

20 FRINT "ENTER THE NUMBER OF DECIMAL" 

40 FRINT "PLACES OF ROUNDING You WANT: " 

20 PRINT "O FOR WHOLE NUMBERS, 1 FOR TENTHS, ETC." 
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40 PRINT "UP To 3." 

70 #INFUT Ril 

sO FRINT “ENTER TOTAL TO BE AFFORTIONED" 

YQ INPUT Se 

100 FRINT "ENTER NUMBER OF FORTIONS" 

110 INPUT WN 

117” REM ENTER RATIC AMOLINTS CONE BY CINE 

12Oo 0 6FFOR IT = 1 TON 

1320 PRINT "ENTER AMOLINT "3 

140 INFUT ACI) 

130 S1 = S1 + ACI) 

140 NEXT I 

170 FRINT TABC &)3s "AMOUNT": TABRC 17)3 "FERCENT"'3 TABR( 

130 0 =60PRINT 

1vO)060UW FOORUhLTdhvwH|hd1 TON - 1 

200 F = INT (10000 # ACI) 7 S1 + O15) / 100 

210 Fl = Fl + FP 
FR 


20); "APFORTIONED" 


2270 KR = INT ((S2 # ACI) 7 S1) # 10 * (R11) + O85) 7 10 * (R11) 
230 SS = SS + FR 


S40 PRINT TAB(C &)3;ACI)3 TAR 17)5F3 TABR( 30)5R 

250 NEXT I 

Sor FR = INT €(190 —- Fi) * 10 ™ (RI) + 0.5) / 10 ™ (R11) 

254 SR = INT ((52 - S33) # 10 * (R11) + 0.5) 7 10 ™ (R1) 

240 FRINT TABC S)3A(N)3 TABC 197)5FR: TABC 30)35R 

270 =PRINT 

2SQ PRINT "TOTALS": TABC &)3513 TAB 17)3"100.00"3 TAB( 30)35 
270 PRINT 

300 FRINT “LAST ITEM ADJUSTED WHERE NECESSARY" 

310 #6END 
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Internal Rate of Return 


Internal Rate of Return (IRR) is the rate at which the sum of all cash flows discount to the amount of the 
initial investment. This program finds the rate by using a half-interval search. 

To use the program, enter the amount of the initial investment, then the term of the investment (in 
years), and the cash flow amount for each year. Enter outflows (funds you invest) as negative numbers. 
Enter an initial investment of zero to end the program. 

IRR can also be used to compute the yield to maturity of a bond by entering the price of the bond as 
the initial investment, the number of years to maturity as the term, coupon amounts for each year they 
will be received as the cash flow amounts for those years (enter the total amount to be received in each 
year), and coupon amount(s) plus the maturity value of the bond in the last year (when the bond will 
mature). The IRR returned by the program is the yield to maturity of the bond. 


Program Notes 


The half-interval search at lines 320 to 540 will find rates of return between 0% and 99%. If this range is 
not wide enough to suit your needs, change the initial values of variable L at line 330 and H at line 340. 
These are the low and high search limits. Make sure that upon the first execution of line 370, the value of 
(L+H)/2 is not zero, as that will cause premature exit from the search algorithm. 


Example 


Bob T. has an opportunity to invest in a venture. An initial investment of $10,000 is needed, with cash 
returns of $4,000, $5,000, and $3,000 over the next three years. His required rate of return is 15%. 
Should Bob accept this investment? 

Answer: No. The IRR of this investment is 10.1331%. The accept/reject criterion stipulates rejection 
of any investment whose IRR is less than the required rate of return. 


INTERNAL RATE UF RETLIRN 


ENTER THE AMOUNT OF THE INITIAL 
INVESTMENT €O TO END) Y1loodad0o 


NUMBER OF CASH FLOW FERIOOS os 


CENTER INFLOWS AS POSITIVE, 

OUTFLOWS AS NEGATIVE AMOUNTS) 

MASH FLOW FOR FERIOOD 1 24000 
2 PSOOO 


rn ©1018) 


INTERNAL RATE OF RETURN = 10.,1331% 


ENTER THE AMOUNT OF THE INITIAL 
INVESTMENT (0 TO END) Fo 
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Practice Problem 


A new bond issue offers a coupon rate of 8.25% and matures in 7 years. What is the yield to maturity of a 
$10,000 bond if the price is $8,500? 
Answer: The yield to maturity is 11.4831%. 


Program Listing 


10 FPRINT "INTERNAL RATE OF RETURN" 

2-0 REM FUNCTION To ROUND To NEAREST HUNDREDTH 

200 06UWdEFLUCUFN AAC XX) = INT ¢(X # 100 + O43) / 100 

40 KEM FUNCTION To ROUND To NEAREST TEN-THOLISANDOTH 
SO DEF FN BCX) = INT (X *# 1E4 + O13) / 1E4 

40 REM CHANGE SIZE UWF ARRAY (0) IF NECESSARY 

70 DIM cis) 

sO PRINT 

YO FRINT "ENTER THE AMOUNT OF THE INITIAL" 

= FPRINT "INVESTMENT (0 To END) "3 

100 YINFLT I 

110 REM END PROGRAM? 

10 TF J = © THEN &?o 

1320 RINT 

140 FRINT "NUMBER OF CASH FLOW FERIOOS '"$ 

120 8INFUT N 

140 REM RESTART IF NUMBER OF CASH FLOW PERTOOS IS INVALIN 
170 IF N = 1 THEN 80 

120 REM LOOP To INFUT AND SUM CASH FLOW AMOUNT CS) 
vO F = 0 

200 PRINT 

210 PRINT "CENTER INFLOWS AS FUOSITIVE, 

S15 PRINT "OUTFLOWS AS NEGATIVE AMOUNTS)" 

2eOo FOR wt = 1 TO ON 

20 TF ww > 1 THEN 240 

240 PRINT "CASH FLOW FOR FERTOO "3 

20 GOTO 70 

240 PRINT " "5 

270 PRINT ws" "3 

2ZaO INFUT (¢t) 

200 NEXT JJ 

210 FRINT 

220 REM INITIALIZE VALUES 

330 [. = O 
S40 H = J 

250 Ai = O 

340 REM GUESS RATE = CHIGH RATE + LOW RATE) / & 
370 AR = (lL + H) 7 & 

sS0 68RKEM EXIT IF RATE REMAINS UNCHANGED 

S70 IF R = RI THEN 220 

400 REM SET LAST GUESS TO CURRENT GUESS 

410 Ril = R 

420 REM ADD PRESENT VALUES FOR EACH YEAR BASED ON RATE CF 
430 T = © 

440 FoR 0 = 1] TOON 
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450 T = T 
440 NEXT 
470 #£REPI 
40 IF T 
470 REM 
—00 [F ] 
“10 L = FR 
et) tite 
SO H = Fe 
S40 GoTo 
je) PRINT 
“40 PRINT 
=70 FPRINT 
sq Gore 
= ENT! 
References 


+ FN ACCOI) 7 CCR + 1) * 1D) 

_l 

IF TOTAL PRESENT VALUES EGUAL INVESTMENT, EXIT 
= { THEN S50 

SET HIGH OF LOW RATE TO CURRENT GUESS 

* T THEN S30 


70 
370 
© 
"INTERNAL RATE OF RETURN = "3 FN BCR # 100)35 "2" 
tw) 


Chase and Aquilano. Production and Operations Management. Homewood, Ill.: Richard D. Irwin, Inc., 
1977. Pages 131-32. 


Rosen, Lawrence R. The Dow Jones-Irwin Guide to Interest. Homewood, Ill.: Dow Jones-Irwin, 1974. 


Solomon and Pringle. An Introduction to Financial Management. Santa Monica, Calif.: Goodyear 
Publishing, 1977. Pages 257-61. 
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Financial Management Rate of Return 


Financial Management Rate of Return (FMRR) differs from Internal Rate of Return in several respects. 
For some investments, particularly real estate ventures, FMRR will provide a more realistic value than 
IRR. FMRR assumes only cash flows after financing and taxes are considered, and it ignores the fact that 
other sources of funds may be available. 

To use the program, you enter the term of the investment (in years), then a liquid investment rate. 
This is a rate at which funds can be invested in any amount, at a guaranteed after-tax rate, and withdrawn 
as needed (such as a savings account). You also enter a ‘‘safe’’ fixed investment rate. ‘‘Safe’’ means the 
return on the investment will be at least that high. This investment can be a real estate project or other 
fixed investment of comparable risk at after-tax rates above the liquid rate, such as certificates of deposit 
or Treasury bills. The fixed investment should have a minimum amount that can be invested. Enter this 
amount, too. 

The program will indicate points where you will be expected to invest funds in the liquid and fixed 
investments, the actual initial investment you will need to make (the difference between that amount 
and the original initial investment must be invested at the fixed rate at the beginning of the first year), 
the actual total return on the investment, and the rate at which the actual total return discounts to the 
actual initial investment (the FMRR). 


Horatio plans to buy an apartment house. The terms require $10,000 down payment to be made now, 
and payments of $50,000 to be made next year and the following year. Cash flows indicate that at the end 
of years 3 and 5, Horatio can expect to receive $30,000 from his investment. He plans to remodel the 
building during year 4, at an estimated cost of $20,000. Finally, in year 6 he plans to sell the building for 
$250,000. The liquid investment rate available is 5%, and a minimum $10,000 fixed investment will earn 
at least 10%. What is the FMRR on Horatio’s investment? 

Answer: 19.348% (The IRR of this investment is 25.2%.) 


“FINANCIAL MANAGEMENT” RATE OF RETURN 


NUMBER OF YEARS ?4 

LIWUTD INVESTMENT INTEREST RATE ?5 
“SAFE” FIXED INVESTMENT 

INTEREST RATE $10 

MINIMUM AMOUNT OF FIXED 

INVESTMENT $10000 


(ENTER INFLOWS A POSITIVE, 
OWTFLOWS AS NEGATIVE, ) 


ENTER CASH FLOW ANCUNT FOR YEAR 
F-10000 


he 
— 


ire! 101818) 


1 
4 


Lad 
a 
oe 
at 
Aly 
3 
—_ 
oe 
¢ 
— 
a, 
: 
—_ 
a, 
a) 
bad 


* e -_ - - wo” 


& S2S"—0000 


FINANCIAL MANAGEMENT RATE OF RETURN 


LIGUIO INVESTMENT OF #17047 
Ta BE MADE AT END OF YEAR 3 


FIXED INVESTMENT OF #10752 
TO BE MADE AT END OF YEAR & 
FIXED INVESTMENT OF $20000 
Tl) BE MADE AT END OF YEAR & 


ACTUAL TOTAL INITIAL INVESTMENT 
= #102971 

TOTAL RETURN ON INVESTMENT 
= $297577 


“FINANCIAL MANAGEMENT * 
RATE OF RETURN = 17, 345% 


WOULD YOU LIKE To RE-RUN THIS PROGRAM 
WITH NEW DATA? (Y/N) TN 


Practice Problems 


1. What is the FMRR on a 6-year project if the liquid rate is 7.25%, the fixed rate is 15% (with a 
minimum investment of $10,000), and the initial investment is $100,000? Cash flows will be $30,000 
inflow year 1, $45,000 outflow year 2, and $50,000 inflows during each of the remaining 4 years of the 
term. 

Answer: The FMRR is 11.783%. 


2. On a 4-year investment, requiring $10,000 initially and cash flows of —$2,500, $5,000, —$2,500, 
and $25,000 during the term, what is the FMRR? The liquid rate is 8.5%, and a minimum $1,000 fixed 
investment will return at least 13%. 

Answer: The FMRR is 23.303%. 


Program Listing 


10 FRINT "“FINANCTAL MANAGEMENT” RATE OF RETURN" 
“O REM FUNCTION Tao ROUND TO NEAREST THOLESANDTH 


20 DEF FN BCX) = INT ¢(X # JES + O13) / IES 
40 REM --—-- CHANGE DIMENSION OF ARRAY (0) 

45 REM -- TO MAXIMUM NUMBER OF YEARS 

“0 DIM (12) 

60 PRINT 

70 FRINT "NUMBER OF YEARS "5 

SO INFLT N 


PO PRINT "LIGUIO INVESTMENT INTEREST RATE "3 
100 INPUT Ri 

110 Ri = Ri / 100 + 1 

120 FRINT "“SAFE" FIXED INVESTMENT " 

125 PRINT "INTEREST RATE "S$ 

120 INFUT Re 

140 Re = RE / 100 + 1 

130 FRINT "MINIMUM AMOUNT OF FIXED " 

15 FRINT "INVESTMENT "3 
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or w) 
AOC) 
410 
412 
420 
40230) 
44.0) 
445 
450 
4A0 
470 
ABO 
470 
FOO 
210 
a a 
a ed 


SAO 


INPUT 
FRINT 
FRINT 
PRINT 
FRINT 
FRINT 
PRINT 
INFUT 
FoR ol 
PRINT 
INPUT 
NEXT 
FRINT 
REM 
REM 
REM 
REM 
FoR ol 
REM 


PRACTICAL BASIC PROGRAMS — APPLE Il 


M 


"CENTER INFLOWS AS FOSITIVE, " 
"OUTPLOWS AS NEGATIVE. )" 


"ENTER CASH FLOW AMOLINT FOR YEAR" 
ut coms 

oO 

= 1 TO N 


a8 8 = {: oi tle 
3 3 3 


CI) 


REMOVE ALL FUTURE OUTFLOWS BY UTILIZING 
PRIOR INFLOWS WHERE FOssI Ble 


FIRST, FING QUTFLOWS 


= j]7TON - 1 


SERIF OVER INFLOWS AND ZERO AMOUNTS 


TF (0.4) 2 = 0 THEN 320 


REM 


MUTPLOW FOOLING! 


A = OI) 


REM 
Kk = QO 
Koa K 

IF 


IF te 


REM 
REM 


+ Jj 


NOW FING FRIOGR INFLOWCS) 


THEN 220 
f- BK) = = 0 THEN 380 


INFLOW FOLIND., REMOVE AMOUNT NEEDED 
TO ZERO OUTFLOW IF FOSSTRBLE 


ImC.lo - Ed) = OC. - EK) + INT (A 7 RI ™ ED 


IF lw 


REM 
REM 


GOT 
OI) = 
FRINT 
PRINT 
NEXT 
FRINT 
REM 


Pb- BF) > = @ THEN 40 


IF NOT ENQUGH MONEY AVAILABLE, 
CORRECT TO ZERG THE INFLOW 

A= A+ INT (¢ ABS (CCI - EdD) # Rl * EF) 
- FE) = © 


Pa 


BOO 


O 
"LIGUICON INVESTMENT OF $°3 INT € ABS (A 7 Rl ™ FD) 
"TO BE MADE AT END OF YEAR "Sul - F 


OGSCOuUNT REMAINING OUTFLOWS TO 


REM ‘PRESENT AT LIGUIO INTEREST RATE 


FoR ot 


= 1 TON - 1 


IF (0.1) 2» = 0 THEN SO 
moO = ©O + FN BCCI) # RI ™ 


(ft) = 
NEXT 

a 2 
REM 
REM 


() 


»t 

INT ¢( ABS (CO) + O15) 

COMPOUND FORWARD ALL REMAINING 
INFLOWS GREATER THAN MINIMUM 


REM FIXED INVESTMENT AMOUNT 
FOR J = 1 To N - 1 
IF (¢.10 =< M THEN 4670 


FINANCIAL MANAGEMENT RATE OF RETURN 49 


sO CCN) = CCN) + FN BCCOI) # Re *- CN — WD) 
L600 PRINT "FIXED INVESTMENT OF $"5 0 (.1) 

445 FPRINT "TO BE MADE AT END OF YEAR "3. 
&70Q NEXT J 

420 PRINT 

470 CN) = INT ¢ ABS CCOCN)) + 0,5) 

700 FRINT "ACTUAL TOTAL INITIAL INVESTMENT" 
7923 PRINT " = $" SiO 

710 PRINT "TOTAL RETURN ON INVESTMENT" 

713° PRINT " = $'S(N) 

720 REM INITIALIZE LOW AND HIGH 

2 REM GUESSES, SET LAST GUESS To ZERO 


() 


“J 
= 
A al x 
io 
—~ 


= (H + L) / & 

770 REM EXIT IF RATE REMAINS UNCHANGED 

720 IF R = RO THEN 710 

770 REM SET LAST GUESS TO CURRENT GUESS 

S00 RO = RF 

s10O REM CALCULATE FRESENT VALUE OF 

S125 REM FUTURE VALUE BASED ON RATE OF R 

s2O T = INT (COON) 7 CCR + 1) * ND) 

es0O REM JF PRESENT VALUE EQUALS INVESTMENT,EXIT 
S40 IF T = €O THEN 710 

soa [TF T > CO THEN 870 

S40 REM SET HIGH OR LOW GUESS To CURRENT GUESS 
70 H = R 

SSO Gorda 740 

270 L = R 


900 GOTO 740 
910 PRINT 


07% 
Ae] 


ot 
“0 No OA po ba ba ee oS 


PRINT "“FINANCTAL MANAGEMENT ~" 
PRINT "RATE OF RETURN = "$3 FN BCR # 100) "Rh" 


* Li 
ii 


930 REM RESTART OF END PROGRAM? 

940 PRINT 

950 PRINT "WOULD YOU LIKE To) RE-RUN THIS PROGRAM" 
955 PRINT "WITH NEW DATA? (Y/N) “5 

960 INPUT 24 


~ Ca 
8 
(an Se | 


o ™, 
“hi 


IF 2% = "Y¥" THEN 60 
IF 2% = > "N" THEN ? 20 
ENO 


* 1 
Con) 
La 


% £1 
~, 
a 
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Financial Statement Ratio Analysis 


This program calculates 22 ratios of interest to an investor, based on data you enter from a firm’s 
financial statements. They indicate a firm’s profitability, liquidity, activity, and capital structure. You 
should only compare the ratios of a firm with others in the same industry, or against an industry average. 
To use the program, enter the name of the firm which you are analyzing, the date of financial statement 
and selected dollar amounts from it. You also need to enter the number of common shares outstanding, 
market price per share and dividends paid per share. 


Jim would like to invest in an issue of common stock from a manufacturer of computer equipment. Its 
financial statements are shown below. Wimpytron has 7,000 shares of common stock outstanding at a 
market price of $17.50 per share. Dividends of $1.25 per share were paid to stockholders of record from 
July 1979 through June 1980. 


WIMPYTRON, Inc. 
Balance Sheet as of July 1, 1980 
(figures in thousands of dollars) 


ASSETS LIABILITIES AND EQUITY 

Cash $ 50 Accounts Payable $ 75 

Accounts Receivable 100 Notes Payable 155 

Marketable Securities 20 Total Current Liabilities $230 

Inventory 200 

Total Current Assets $370 Long-Term Debt 190 
STOCKHOLDERS’ EQUITY 

Plant and Equipment 500 Common Stock 40 

Less: Depreciation 30 Retained Earnings 380 

Total Fixed Assets 470 420 

TOTAL ASSETS $840 TOTAL LIABILITIES AND EQUITY $840 


WIMPYTRON, Inc. 
Income Statement as of July 1, 1980 
(figures in thousands of dollars) 


Net Sales $985 
Cost of Goods Sold 

Beginning Inventory $380 

Purchases 200 

Less: Ending Inventory 200 

Total Cost of Goods Sold _380 
Gross Margin $605 
Selling Expenses 150 
General & Administrative Expenses 220 
Interest Expense 70 
Total Expenses 440 
Income Before Taxes 155 
Income Taxes 78 
Net Earnings After Taxes $ 73 


How would you run the program to analyze this firm? 


FINANCIAL STATEMENT RATIO ANALYSIS 


FINANCTAL STATEMENT RATIO ANALYSIS 


NAME OF FIRM SWIMFYTRON INC. 
MONTH/DAY/YEAR Y4UILY 1 1981 
a INCOME =sTATEMENT-~-----— 
ENTER ANGUNTS FOR: 
NET SALES 
BREGINNING INVENTORY 


ENDING INVENTORY *¥ 


COST OF GOODS SOLO 
INTEREST EXPENSE 


PRE-TAX INCOME ° 


INCOME TAXES 


ENTER AMOUNTS FURS 
ASH 
ACCOUNTS RECEIVABLE 
NOTES & MAREETABLE SECURITIES 
TOTAL ASSETS 
CURRENT LIABILITIES 
STOCEHOLDERS” EQuiry 


ALSO ENTER: 
COMMON SHARES OUTSTANDING 
MAREET FRICE PER SHARE 
DIVIDENDS PER SHARE 


—--EVALUATION OF WIMPYTRON INC. -- 
BY RATIO ANALYSIS 
ENDING PERIO“:S JULY 1 1731 


—-—---FPROPF ITABL ITY----— 
RETURN OF ASSETS 
RETURN ON EGQuiry 
RETURN OF INVESTED CAPITAL 
FARNINGS FER SHARE 
MFERATING RATIO 


NET WORE ING CAFITAL 
ACIO TEST (HUICK) RATIO 
CURRENT RATIO 


SALES FER DAY $2473.42 


FS320000 
77/0000 


272000 


TZO000 
PTE40000 


SOOO 


77000 


717.5 


YL.S5 


Penn 
13.34 
12.42% 
$11 
~S455 1 


$1 40000 
73981 
1.40984 


DAYS SALES QUTSTANDING 37.054 DAYS 


INVENTORY TURNOVER 1.21 


oaheienioaan INDEBTEDNESs----— 
CREDITORS” INTEREST IN FIRM 
TIMES INTEREST EARNED 
DEBT TO Euivry 
LONG-TERM DEBT TO NET WORTH 
LONG-TERM DERT Ta CAFITAL 


TIMES 


OA 


01 


ve 
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-——-— EGU, TY----- 
STOCKHOLDERS” INTEREST IN FIRM 30% 
PAYOUT RATIO .1142:1 
EARNINGS YIELD 42.72% 
Bok VALUE/SHARE $40 
FRICE/EARNINGS RATIO 1.aviel 
DIVIDEND YIELO 7.1% 
oo You WANT ANOTHER ANALYSI= (Y/N) YN 


Practice Problems 


1. Suppose the balance sheet is altered so the stockholders’ equity is $390,000. (The long-term debt 
will be changed by the program.) What ratios will change, and what will their new values be? 

Answer: Return on equity, 19.7%; creditors’ interest, 53.6%; debt to equity, 1.154:1; long-term debt 
to net worth, 0.564:1; long-term debt to capital, 0.361:1; stockholders’ interest, 46.4%; book value, 
$55.714. 


2. If you interchange the amounts for accounts receivable and cash, what ratios will change and what 
will their new values be? 
Answer: Days sales outstanding changes to 18.528 days. All others ratios remain unchanged. 


Program Listing 


10 
20 


20 


100 
110 
120 
130 
140 
130 
140 
170 
1e0 
1?O 
ZOQ 
210 


21th. 


wa 
B30) 
240 
245 
ent) 
OQ 


er oa 


FRINT 
IM oO 
REM 
REM 
REM 
REM 
REM 
FEM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM ° 
REM 
REM 
DATA 
CATA 
CATA 
DATA 
NATTA 
DATA 
DATA 
DIATA 
DATA 


"FINANCIAL STATEMENT RATIO ANALYSIS" 
(20) 
idl) = NET SALES 
C¢S) = BEGINNING INVENTORY 
OCs) = ENDING INVENTORY 
Tic 4) = CO387 OF GOODS SOLD 
OS) = INTEREST EXPENSE 
QN(4) = PRETAX INCOME 
Qi¢7) = TAXES 
OS) = CASH 
OC?) = ACCOUNTS RECEIVABLE 
D(10)= NOTES RECEIVABLE 
QO(iid= TOTAL ASSETS 
D¢i2)= CURRENT LIABILITIES 
DO¢Cisd= EWuITy 
D¢14)= SHARES OUTSTANDING 
D¢it)= MAREET PRICE FER SHARE 
QN¢16)= DIVIDENDS FAIL 
"NET SALES". "BEGINNING INVENTORY" 
"ENDING INVENTORY" 
"COST OF GOODS Solo", “INTEREST EXPENSE" 
"PRE-TAX INCOME", "INCOME TAXES", "CASH" 
"ACCOUNTS RECEIVABLE" 
"NOTES & MAREETABLE SECURITIES" 
"TOTAL ASSETS". "CURRENT LIABLITIES" 
“STOCKHOLDERS” EQUITY" 
"COMMON SHARES OUTSTANDING" 


FINANCIAL STATEMENT RATIO ANALYSIS 


270 DATA "MARKET PRICE PER SHARE" 

275 DATA "DIVIDENDS FER SHARE" 

2280 FRINT 

270 ©60FRINT " NAME OF FIRM "3 

3200 INFUT N# 

310 FPRINT " MONTH/DAY/YEAR "S$ 

320 jINFUT DS 

330 REM ENTER INCOME STATEMENT ACCOUNTS 
340 RESTORE 


t 
n 
ai 
— 
= 
— 
| 
{ 
| 
| 
| 
{ 
a 
rd 
m7 
= 
= 
iT) 
— 
D> 
— 
7 
x4 
fT} 
za 
—| 
I 
! 
1 
| 
| 
l 


3640 PRINT “ENTER AMOUNTS FoR: " 

370 FOR I = 1 Ta 7 

: ) GOS 1420 

s¥Q NEXT I 

400 REM ENTER BALANCE SHEET ACCUOLINTS 
410 FPRINT “------—- BALANCE SHEET—------- " 
420 PRINT “ENTER AMOUNTS Fors " 

430 FOR I = & To 13 

440 (iGOS0UIB 1420 

4=0 NEXT I 

440 PRINT 

470 PRINT "@L50 ENTER: " 

430 FOR I = 14 TO 14 

47O OOsub té20 

200 NEXT I 

“10 PRINT 

“20 PRINT "--EVALUATION CF "SNS "— 


Let Ut bt bab Lek bo 
A oS 


sae FRINT " BY RATIO ANALYSIS" 
“20 PRINT " ENDING FERIOU: "$3 [1 
240 PRINT 

220 PRINT "----- FROFITABILITY-----— " 
260 TS = "RETURN OF ASSETS" 

“70 Xi] me 


20 XO = (004) —- 0¢7)) / O11) 
S70 GOSUB 1470 

600 Té = "RETURN ON EQUITY" 
410 XO = (0¢(46) - O607)) / O¢13) 
420 GOSWIER 14670 

430 TS = "RETURN OF INVESTED CAPITAL" 
£40 X1 = 3 

450 XO = (006) - 0(¢7)) / (011) - D¢12)) 
440 G0°5U0R 1470 

&70 TS "EARNINGS FER SHARE" 

G0 XI 

B&Q XO 


~ Et 


QNC&) -— OFC7)) /¢ O14) 


i i Wud 


700 GOSUEB 1470 
710 T# = "“ORERATING RATIO" 
720 X11 = i 


730 XO (Q¢1) -—- O¢4)) / DC1) 

740 GOSUB 1470 

7240 PRINT 

7640 PRINT "  ----- LIwUIOT TY¥----— " 
770 Tt = "NET WORE ING CAPITAL" 

720 Xi = 3 

770 REM CALCULATE CURRENT ASSETS 
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= 
tot 
—~ 
_ 
~ 
—_ 


SOO @1 = OCS) + OCF) + OFC10) + D3) 
10 REM CALCULATE LONG-TERM DEBT 
S20 LO = 0(11) - OF(12) - OC1s3) 

O xO = (1 - OC12) 


s 2 88 
_ 


TS 
Xl 
XO fl — O¢3s)) / OC12) 
GOS LAO 

TS "CURRENT RATIO" 

YOO XO 1 ¢7 O¢Cis) 


"ACIO 
1 
( 


TEST (HUTTE) RATIO" 


—_ sr 
sre & 8 
ee eal 


Ay 
—_— 


momo mo oo 0 05 0 03 oo 
“1 Dawg Lt te kt ha 


oe 
e' 
~ 
te 
—_ 


710 GOSUB 1470 
920 PRINT 


1000 
1005 
1O10O 
1020 
LO20 
1040 
1020 
1040 
LO4AS5 
1070 
LOBOQ 
1oO70 
1100 
1110 
1120 
1120 
1140 
11350 
1160 
1170 
1120 
1185 
11?0 
1200 
1210 
1220 
1230 
1240 
1220 
1240 
1270 

2aO 
1270 
1200 
1210 


Tt = 
Xl = & 
Xo = 


T# = "DAYS SALES 
Xl = 0 


PRINT " 
"SALES PER DAY" 

Ciel) / 345 

GBOSWEB 14670 

QUTSTANDING" 


XO = OfC%) / (O01) / BAR) 
XQ = INT (XO *# 1000 + O.5 
FRINT TABQ S)3TSs" "3 XO5 
PRINT " DAYS" 

REM IF NO INVENTORY DATA, 
IF O¢2) + OCS) = 
TS = 


1000 


SEIF FRINTING 
O THEN 10270 

"INVENTORY TURNOVER" 

D4) / (COS) + OCS)) 7 2B) 


XO = INT (XO # 1000 + O15) / 1000 


PRINT TAB( #)3T#3" "SXOS" "3 
PRINT " TIMES" 

PRINT 

PRINT " ---~- INDEBTEDINESS—---~" 


FIRM" 


GOSUB 1470 
= "TIMES INTEREST EARNED" 
X1 = 0 
XO = (006) + OC7) + OOC3)) / OCR) 
GOL 1470 
PRINT 
T# = "DEBT Tot EMuITyY" 
Xi = 1 
XO = (016011) 
GOSUBR 1470 
TS = "LONG-TERM DEBT TO NET WORTH" 
XO = LO / 011013) 
GOSuB 1470 
TS = "LONG-TERM DEBT To CAPITAL" 
XO = LO / (LO + NC13)) 
GOSWB 1470 
PRINT 
PRINT " 
T# = "STOCKHOLDERS ~ 


-— [O¢C1s)) 7 Oi) 


INTEREST IN FIRM" 
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mH ES FF 
2S a5: 


a, 
_ 


M~t oon oo be 


™, 
_ 


fs) 3 ey 03 ho 03 Ho 


1440 
1430 
14640 
1470 
14:30 
1470 
1500 
1210 
1320 
13-20 
12340 
1330 
1340 
1870 
1280 
1S70 
1400 
1410 
1420 
14230 
146440 
1450 
1440 
1470 
1420 
1470 
1700 
1710 
1720 
17730 
1740 
17350 
1740 
1770 
1780 
17?0 
L200 
1810 
1820 
1220 
1840 


a it nn ® 


Giles 
TS = 
Xl = 
XQ = 

Gos 
T$ = 


X1 =: 


XQ = 
Gos 


PRI 
FRI 
INP 
IF 

IF 

GOT 
REM 
REA 
FRI 
INF 


(I(13)) f/ O11) 
LiB 1470 

"PAYOUT RATIO" 
1 


NC1é) / €(006) -— OFC7)) / 014)) 
WIR 1670 
“EARNINGS YIELD" 


2 


((O¢4) - OF(7)) / O¢C14)) / OC15) 
SUB 14670 

"ROCK VALUE/SHARE" 

3 

OCis) ¢/ C14) 
UB 1470 

"PRICE/EARNINGS RATIO" 

1 

O¢Cis) /¢/ ¢€(0¢46) -— O9C7)) / 01014)) 
WB 1470 

"DIVIDEND YIELD" 
O¢1i46) / OCLs) 
LIB 1470 
NT 
NT “DO YOLt WANT ANOTHER ANALYSIS (Y/N) 
iT Tt 
TH = "Y¥" THEN 280 
TH = & "N" THEN 1340 
Mm 1640 

DATA ENTRY ROUTINE 
on T¢ 
NT TABC 31 - LEN (T#))3" "sT#s" "3 
UT OCI) 


RETURN 


REM SUBROUTINE TO FRINT RATIOS & TURNOVER DATA 


PRI 
XO = 
REM 
IF 
REM 
IF 
REM 
IF 
REM 
PRI 
RET 
PRI 
RET 
PRI 
RET 
PRI 
RET 
END 


NT TAB( 31 - LEN (TS))s" "ST#3 
INT (XO # 1000 + OS) 7” 1000 
RATIO FORMAT IF X1=1 

X1 = 1 THEN 1780 
RATE FORMAT IF X1= 

X1 = 2 THEN 1800 
DOLLAR FORMAT IF X1=3 

Xt = 3 THEN 1820 
DEFAULT TO NG FORMAT IF X1=0 

NT " "sxXo3 

LIRN 

NT oe He XOs meq" 

LIRN 

NT " "XO # 1008"%" 

LIRN 

NT a Tt] s XO 

LIRN 


tla 
? 


59 
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Profit Sharing Contributions 


This program calculates the profit sharing contributions for up to 250 employees. Some profit sharing 
plans are not “‘integrated”’ (that is, the contribution made for each employee is exactly proportionate to 
his salary). If his compensation is 5% of the total compensation of all participants, then he is allotted 5% 
of the total contribution for that year, and so on. 

Integrated profit sharing plans are less straightforward. In this case, a salary level no higher than the 
current Social Security wage base ($22,900 in 1979, $25,900 in 1980) is chosen as the integration level. 
Each employee whose salary exceeds the integration level receives a percentage (not more than 7%) of 
the amount by which his earnings exceed the integration level. The remainder of the total contribution is 
distributed proportionate to salary. If the integrated portion of the total contribution exceeds the total, it 
is reduced proportionately. If this happens, those whose salary is less than the integration level receive 
nothing. 

This program handles both integrated and non-integrated plans of up to 250 participants. You first 
enter the name and salary of each employee/participant. After you enter the last employee’s name and 
salary, enter anything for the name, and — 1 for the salary when the program requests them. The 
program then prints out the total of the salaries, and the usual 15% limit on contributions. You then 
enter the amount of the contribution as a decimal fraction of the total compensation. You are asked if the 
plan is integrated and, if so, what the integration level and percentage are. 

The program then prints a table showing each employee’s name, salary, and the amount of his 
allocation, divided into integrated and non-integrated portions. The program prints the totals for all 
employees, and then allows you to go back and change some or all of the data. 


Example 


The following employees are all participants in a profit sharing plan: 


Name Salary 
Connell $150,000 
Johnson 22,900 
Smith 15,000 
Jones 12,000 
Brown 10,000 


Assuming a 15% company contribution, what allocation would be made to each employee in a non- 
integrated plan? 
Answer: 


PROFIT SHARING CONTRIBUTIONS 

ENTER EACH EMPLOYEE“ NAME ANDI SALARY 
ENTER -1 AS THE SALARY TO END ENTRY 
PCONNELL 150000 

PUIGHNSOIN, 22700 

PSMITH, 15000 

PICNES, 12000 

PBROWN, 10000 

TA -41 

TOTAL COMPENSATION = 2097700 

15% LIMITATION = 21485 

P/S % CONTRIBUTION AS A DECIMAL = 70.15 
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Is PLAN INTEGRATED? (Y/N) ?N 

INTEGRATED NON-INTEG., ~ 
NAME SALARY FORTICN PORTION TOTAL 
CONNELL =QQ00 © 22 OO 220g 
WHOHNES CN 2Z2r700 0 3435 3435 
SMITH 12000 Q weg 2250 
JONES 12000 Oo 1300 1200 
BROWN 10000 0 1300 1500 
TOTALS SOr7700 O 314285 S145 
WANT OIFFERENT SALARIES? (Y/N) YN 
NIFFERENT CONTRIBUTION? (Y/N) “AN 
IHANIGE WHETHER INTEGRATED? (Y/N) TN 
DIFFERENT INTEGRATION LEVELY (Y/N) “SN 


DIFFERENT INTEGRATION “2?FCY/N) YN 


Practice Problems 


1. For the same group of employees, what would be the allocations in a plan integrated at 3% over 
$15,000? 

Answer: Connell: $23,486.40; Johnson: $3,204.29; Smith: $1,943.64; Jones: $1,554.91; Brown: 
$1,295.76. 


2. If the plan is integrated at 7% over $22,900, what are the allocations for these same employees? 
Answer: Connell: $25,038.97; Johnson: $2,464.34; Smith: $1,614.20; Jones: $1,291.36; Brown: 
$1,076.13. 


Program Listing 


= FRINT “PROFIT SHARING CONTRIBUTIONS" 

7 REM ROUNDOFF FUNCT ICN 

19 DEF FN R(X) = INT (100 # X + O15) / 100 
20 DIM A$(250),B(250),0(250), 00250) 

120 PRINT "ENTER EACH EMPLOYEE’S NAME AND SALARY" 
140 PRINT "ENTER -1 AS THE SALARY TO END ENTRY" 
130 bk = 0 

140 J = 1 

170 INPUT AS(O.I), BCI) 

120 IF BC.) = - 1 THEN 240 

170 Ff = K+ BOD 

ZOO J = i + I 

210 GoTo 170 

240 J = I - 1 

250 PRINT "TOTAL COMPENSATION = "SK 

260 PRINT "15% LIMITATION = "3 FN RCK # 0.115) 
270 PRINT “F/S % CONTRIBUTION AS A DECIMAL = "3 
220 INFUT M 

=70 IF M> = 1 OR M = = 0 THEN 270 

300 PRINT "IS PLAN INTEGRATED? (Y/N) "3 


310 INPUT Y¢ | 
IF Y$ = "N" THEN 440 


PROFIT SHARING CONTRIBUTIONS 09 


OQ IF YS <= = "Y¥" THEN 2300 

©O PRINT "INTEGRATION LEVEL = " 

: INFUT L 

©O PRINT “INTEGRATION “2 AS A DECIMAL = "3 
400 INPUT F 

4370 2 = QO 

430 H = © 

427 REM CALCULATE INTEGRATED FORTION FOR EACH EMPLOYEE 
440 FOR I = 1 fu uJ 

4=0 IF B(I) > L THEN 440 

453 0¢(1) = 0 

454 (GOTO 470 

440 (¢I) = FN RCP # (BCI) -— L)) 


rt tet ta th 


“1 NY ot 3 
= 
no 


“90 TF H = M # EF THEN 430 
210 IF H > M # KF THEN 320 
“12 FOR I = 1 Tea wl 


“215 GOTO 740 

“20 FR = 0 

S30 T = © 

coo? REM REDUCE INTEGRATED AMOUNT To TOTAL CONTRIBUTION 
240 FOR I = 1 Ta WJ 

tet) IF :¢1) = © THEN 420 

260 T = JT + 1 

t7Q IF T = 3 THEN 410 

“20 ((I) = FN ROOCCI) *# M #® FE 7 HD) 

270 R= RR + OCI) 

400 GOTO 420 

610 (CI) = M*# FE - R 

20 NEXT I 

430 O0TO 740 

£40 H = 0 

£42 FOR JT = 1 Ta WJ 

£44 (I) = 0 

£4& NEXT I 

650 G = M- H/E 

£647 REM CALCULATE NON-INTEGRATED FPORTION 

&70 FOR I = 1 To J 

470 D¢(T) = FN RCBCI) # G) 

720 NEXT I 

760 1 = O 

770 X = 0 

7oa0 PRINT " INTEGRATED NON-INTEsG, " 
770 PRINT "NAME SALARY FORT ICN PORTION TOTAL" 
7? REM PRINT OUT RESULTS 

S00 FOR I = 1 Ta . 

S20 X = X + CCI) + OCT) 

a0 fo = i + DCT) 

S40 PRINT AS(I)$ TABC 11)38B(1I)3 TABC 18)3C¢(1I): TARC 28); 
s45 PRINT OCT): TAR 34)50¢01) + DCT) 

soc NEXT I 


2 FRINT 

QO FRINT "TOTALS"s TABC 11)5E3 TABC 18)3 
O IF H> =M # EF THEN ?00 

QO FRINT H3 TAR(C 2) 

QO GoTo 710 

OQ PRINT M # F3 TAR 2) 

© PRINT (13 TABC 34)5X 

2 FRINT 


“a0 No OF 


ry =. e = e = > 7 en =e = 2, > = 
pe OE i Eh i Lb 


Pi hae oO 


730 PRINT “WANT DIFFERENT SALARIES? (Y/N) "5 
74O INFUT 2% 
wag TF 28 = "YY" THEN 120 


“OAT 
Was a oh 
~, 
1 _ 


PRINT "OQIFFERENT CONTRIBUTION? (Y/N) "3 
INFUT 2% 

O IF Z% = "Y¥" THEN 279 

770 FRINT "CHANGE WHETHER INTEGRATED? CY/N) "3 
1010 INFUT Z$% 

1O2ZO IF 2% = "Y¥" THEN 300 

1030 FRINT "OQIFFERENT INTEGRATION LEVELY (Y/N) 
1940 INPUT 2% 

1950 IF Z$ = "VY" THEN 340 

1040 PRINT "DIFFERENT INTEGRATION “2ASCY/N) "5 
1070 INFUT ZS 

1080 IF Zé = "¥" THEN 370 

1070 END 


Reference 


U.S. Internal Revenue Service Code, Sections 401-04. 
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Checkbook Reconciliation 


This program can remove a considerable burden from you each time you reconcile your checking 
account. Since the computer performs all of the addition and subtraction, the chance for errors to occur 
is greatly reduced. 

You must enter the ending balance from your statement, then each deposit or credit made since the 
statement date. After you have entered all outstanding deposits and credits, enter zero. This signals the 
program to continue to the next section, entry of outstanding checks. Enter check and other debit 
amounts as you did for deposits, and enter zero when all outstanding checks and debits have been 
entered. 

You should enter only positive dollar amounts for each response. The exception is that you may enter 
negative amounts for your previous balance and your checkbook balance. 

If your account won’t balance, check all of your entries to make sure they are complete and correct. 
Do your check register entries match the amounts on the cancelled checks? Have you entered all checks, 
deposits, and automatic debits and credits? If you can’t find any mistakes, call your bank. 


Janet’s checking account statement does not show the $600.00 paycheck she deposited yesterday. She 

also wrote two checks that aren’t shown either, one for $87.32, and one for $250.00. If the ending 

balance from the statement is $348.55, Janet’s check register shows a balance of $614.54, and service 

charges on the statement are $3.31, what is her adjusted account balance? Is Janet’s account balanced? 
Answer: Janet’s adjusted balance is $611.23. Her account is balanced. 


CHECK BOOK RECONCILIATION 


WHAT IS THE ENDING BALANCE 
FROM THE STATEMENT $346.55 


ENTER THE AMOLINT OF EACH DEPOSIT 
NOT SHOWN ON THE STATEMENT 
(ENTER ZERO WHEN ALL OUTSTANDING 
DEPOSITS ARE ENTERED) 

7400 

70) 


ENTER THE AMOUNT OF EACH CHECK 
NOT SHOWN ON THE STATEMENT 
(ENTER ZERO WHEN ALL. QUTSTANDING 
CHECKS ARE ENTERED) 


“% ~~; e = 
ist foe atta 
22 - 


att) 


ACCOUNT BALANCE = #411, 2: 


iat 


ENTER YOUR CHEICEBOOK BALANCE 7414.54 
ENTER THE AMGUNT OF SERVICE CHARGES ?3. 71 


ADJUSTED ACCOUNT BALANCE = $411,235 
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WOULD YOU LIKE To RE-RUN THIS PROGRAM 
WITH NEW DATAY (Y/N) “YN 


Practice Problems 


1. Ending balance is $352.13. Not shown on the statement are three deposits of $100.00 each, and six 
checks amounting to $159.21, $25.00, $14.75, $29.54, $45.67, and $22.50. What is the account balance? 
The checkbook balance is $358.97. Service charges on this statement are $3.51. What is the adjusted 
account balance? Does the account balance? 

Answer: The account balance is $355.46. The adjusted account balance is $355.46. Yes, the account 
does balance. 


2. Ending balance is — $17.39. One deposit of $250.00 is outstanding, as are three checks: $50.00, 
$25.00, and $12.98. A pre-authorized withdrawal of $35.00 also has occurred, but is not shown on this 
statement. What is the account balance? If the checkbook balance is $118.99, and service charges are 
$9.36, what is the adjusted account balance? Is the account balanced? 

Answer: The account balance is $109.63. The adjusted account balance is $109.63. Yes, the account is 
balanced. 


Program Listing 


10 PRINT "CHECK BOOK RECONCILIATION" 

20 REM —- FUNCTION To DETERMINE IF POSITIVE 

25 REM —- DOLLAR AMOLINT WAS ENTERED 

30 DEF FN BCX) = INT (X # 100 + 0.5) / 100 ® SIGN (X) 
4Q FRINT 

20 FPRINT "WHAT IS THE ENDING BALANCE" 

a2 PRINT "FROM THE STATEMENT "3 

49 INPUT E 


7Q REM -— SFPECTAL TEST FOR VALIO INPUT 
7 REM —- (NEGATIVE NUMBER ALLOWED) 

7? X = E ® 100 

sO IF X = INT (X) THEN 120 


70 REM INVALIO AMOUNT. DISFLAY ERROR, 

75 REM -—- LOOP To RE-ENTER 

100 GoOsuUB 420 

1190 GoTo Ao 

120 FRINT 

120 PRINT “ENTER THE AMOUNT OF EACH DEFOSIT" 
135 FPRINT "NOT SHOWN ON THE STATEMENT" 

140 PRINT "(CENTER ZERO WHEN ALL OUTSTANDING" 
145 FRINT “DEPOSITS ARE ENTERED)" 

150 0 = Oo 

1640 INFUT & 

170 REN —- ALL DEPOSITS ENTERED? 

130 IF A = 0 THEN 240 

I1vO REM -—- NO, TEST FOR VALIO ENTRY 

“O00 IF ¢( FN BCA) = A) THEN 240 

210 REM -—- INVALID, FRINT STANDARD ERROR, 
215 REM - LOOP TO RE-ENTER 

220 6 6GOSUR 720 

230 GOTO 140 

240 —T = —7 + A 


CHECKBOOK RECONCILIATION 


20 
240 
270 
27a 
20 


255 


2970 0 


300 
310 
320 
S330 
S340 
=F0 
ben ba 
340) 


370 
eter 
'7() 
400 
405 
410 
420 
AAO 
440 
450 
AbO 
A70 
4:30 
ADO 
45 
OQ 
S10 
0) 


mbaeat 


GOT 
PRINT 
PRINT 
PRINT 
FRINT 
FRINT 
= 0 


INFUT 


140 


"ENTER THE AMOUNT OF EACH CHECK" 
"NOT SHOWN ON THE STATEMENT" 
“(ENTER ZERO WHEN ALL QUTSTANDING " 
"CHECKS ARE ENTERED)" 


A 


Y 


Xx = 


REM - ALL QUTSTANDING CHECKS ENTERED? 
IF A = © THEN 400 

REM - NO. TEST FUR VALID 
IF ( FN BCA) = A) THEN 330 
REM —-— INVALIO;: PRINT STANDARD 
REM —- LOOP TO RE-ENTER 

GOS 720 


ENTRY 


ERROR > 


GOTO 300 
= +A 

GOT 300 

PRINT 


= INT ((E + O - ©) # 100 + O15) 7 100 
FRINT "ACCOUNT BALANCE = $"3¥ 

PRINT 

FRINT "ENTER YOUR CHECK BOCK 
INPUT & 

FRINT "ENTER THE AMQUNT OF SERVICE CHARGES "3 
INFUT & 

REM - TEST FOR VALID 
IF FN B(S) = & THEN 320 

REM - INVALID, PRINT STANDARD 
REM - LOOWF TO RE-ENTER 

GOS 720 
GOTO 4250 

PRINT 
INT ((B - &) # 100 + O<.5) / 100 
PRINT "ADJUSTED ACCOLINT BALANCE = $"3 xX 
IF Y = X THEN 420 
PRINT 
FRINT 
PRINT 
FRINT 
PRINT 
FRINT 
PRINT 
FRINT 
REM 
PRINT 
PRINT "WOULD YOU LIFE To RE-RUN THIS 
PRINT "WITH NEW DATA? (Y/N) "S$ 

INFUT 2% 
IF Z$ = 
IF 2 = 
GOTO 
FRINT 
FRINT 
PRINT 


BALANCE "3 


ENTRY 


ERROR, 


"YOUR ACCOUNT IS OUT OF BALANCE. " 
"MARE SURE YOU HAVE INCLUDED" 
"ALL TRANSACTIONS AGAINST THIS 
"INCLUDING AUTOMATIC 
"INTEREST FAYMENTS,» 
"PRE-AUTHORI ZED 


ACCOLNT > 
DEPOSITS ANI" 

AS WELL AS" 
WITHDRAWALS. " 


PROGRAM" 


wyu 
rag 


THEN 40 
THEN 740 


"ERROR: ENTER A VALIL 


COLLAR AMOLINT ONLY" 
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710 
720 
7230 
7am 
740 
720 
740 


RETURN 
PRINT 
PRINT 
PRINT 
FRINT 
RETURN 
END 


"ERROR: 


ENTER A FusITIvVe" 


DOLLAR 


AMOUNT ONLY" 
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Home Budgeting 


This program sets up a cash budget for personal use, allowing for a variety of expenses which can occur 
at many different times. Once you enter the income and expense information which the program 
requests, day-by-day details of income and expenses print as they occur. The program also allows you to 
use credit cards as a means of paying expenses when the cash you have is insufficient to meet your 
obligations. Or, if you wish, you can delay them until the next time they come up. 

To use the program, enter the date where the budget will begin. The program then guides you through 
a series of entries, starting with net income(s), followed by secured loans, credit cards and, finally, 
normal living expenses. If your budget does not include items which the programs asks for, just enter 
zero for those items. The program will then skip to the next budget item. 

Whenever you have a budget item to enter, you will have to enter its periodic amount, how often it 
occurs, and when it will occur next. The exceptions to this are secured loans and credit cards, which ask 
for more information. The periodic amount is the amount you regularly receive as income, or pay as an 
expense. When you enter how often the budget item occurs, it must be an integer from 1 to 99, 
inclusive. This number tells the program how many times per year the item occurs (1 =yearly, 
2=semiannually, 4=quarterly, 6=bimonthly, 12=monthly, 24=semimonthly, 26=biweekly, and 
52=weekly). 

If the next date for the budget item happens to be the same as the budget start date, enter zero. 
Otherwise, enter the next date as one number (for example, 91580=Sept. 15, 1980). You can enter a 
date months or even years after the budget start date if you like. When the program performs its cash 
flow analysis, it will ‘‘activate’’ future income or expenses when it reaches the date you specify. 

With secured loans, you have to enter the remaining balance of the loan as well as the periodic 
amount, frequency and next date. When you enter credit card information, you will input the annual 
percentage rate for the card, the remaining balance, and its authorized credit limit. The program 
automatically calculates the number and amount of remaining payments for each credit card, and 
displays them. If you want to change the payment which the program calculates, just specify a new 
periodic payment of a higher or lower amount. Note: the program will calculate an even stream of 
payments to make budgeting more predictable. When the remaining balance of the credit card goes 
below the calculated payment amount during the cash flow analysis, only the remaining balance is paid. 

Once you have entered all of the budget items, the program will ask how much cash you have on 
hand. Enter this amount, and the program will begin its cash flow analysis. At the end of each month’s 
detail, total cash inflows and outflows are printed. At this point, you can choose to go to the next 
month’s analysis or stop the program. 

Because you will be entering a significant amount of data in order to run this program, you should 
know how to correct data entry errors. You can only correct errors which you make on the current 
budget item (that is, you cannot backtrack to the fifth item when you are on the tenth). 

On acurrent budget item, you can move as far back as the periodic amount entry by entering —1. For 
example, you notice that you have entered the wrong periodic amount for salary 1, and the program now 
wants you to enter the next date for this item. Rather than entering the next date for salary 1, enter —1. 
The computer will accept this entry and then ask you to enter the periodic amount for salary 1 again. 


Program Notes - 


Home budgeting/cash flow allows for a maximum of 3 incomes, 3 loans, 5 credit cards and 25 expense 
items. At present, the program will allocate cash to loans first, then credit cards, and finally other 
expenses. The expenses are arranged in descending order of importance (that is, if a loan, charge card 
and restaurant expense all appear on the same day, the program will allocate cash to the loan first and to 
the resturant expense last). 
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Changing this program to allow for more budget items is a three-step process. First, change line 20, 
substituting the terms A, B, C, and D in parentheses with actual numbers. These items are explained 
below. 


20 DIM D(12), IO(A,2), CO(B,3), C1(C,5), C1$(C), EO(D,2) 
A = Maximum number of incomes 

B = Maximum number of secured loans 

C = Maximum number of charge cards 

D = Maximum number of expense items 


The second step is to put descriptions of the extra budget items in the DATA statements at the 
beginning of the program. You can add any extra loans by placing DATA statements between lines 90 
and 100 which contain descriptions of the loans. Note: you do not need to change DATA statements to 
allow for more incomes or more credit cards. To add more expenses, add DATA statements anywhere 
from lines 110 through 180. 

The third and last step is to change FOR/NEXT loops in the program. If you change the number of 
secured loans, be sure to also change lines 530 and 1080 of the program. Currently they are set for three 
iterations. Change the number 3 in these two statements to the new number of secured loans. If you 
have added or eliminated expense items, you will need to change lines 750 and 1360. Change the 
number 25 in these two statements to the new number of expense items. 


HOME BUDGETING/CASH FLOW MODEL 


DATE TU START ANALYSIS 


Start analysis on Sept. 1, 1980. 


First net income is $512.00, paid bi- 
weekly. The next paycheck will be on 
Sept. 5, 1980. 


—— NET SALARY 2------ 
PERIOOIC AMQUNT FOR INCOME 7100 
HtW MANY TIMES PER YEAR 724 
ENTER MONTH-DAY-YEAR (MMDLIYY) 7100180 
-- NET SALARY : - 


Finish entering income data. 


PERIOOIC AMOUNT FOR MORTGAGE YO 


Car loan payment was incorrect. —1 entry 
used to back up to the incorrect entry. 


PERTODIC AMOUNT FOR CAR LOAN Ys 
HOW MANY TIMES FER YEAR Fiz 

ENTER MONTH-DAY-YEAR (MMDODYY) SY 1 seo 
LLURRENT BALANCE “1270 


PFERTOOIC AMOUNT FUR OTHER LOAN YO 


HOME BUDGETING 


NAME OF CREDIT CARD 1(RETURN TO END) 
PVISA | 

ANNUAL INTEREST RATE 718 

CURRENT BALANCE 7525 


CREDIT LIMIT ?i0o 


12 FAYMNENTS OF $232.5 


NEEDED To FAY DEBT 


ENTER NEXT VIE A “BILLING ‘DATE! 

ENTER MONTH-DAY-YEAR (MMDODYY) S?sos0 
NAME OF CREDIT CARD 2CRETURN TO END) 
SMASTERCHARIGE 

ANNUAL INTEREST RATE Y1s 

TLUIRRENT BALANCE Yis0 

CREDIT LIMIT Yaoo 


12 PAYMENTS OF $22 
NEEDED To FAY DERT 


CHANGE AMOUNT CY/N) YN 
ENTER NEXT MAS STERCHARGE BILLING | DATES 
wR OMMDOYY) Fos. " 


PERTIOOIC AMOUNT FOR FPROFERTY TAX YO 
PERTOOIC AMOUNT FOR RENT 3300 
HOW MANY TIMES FER YEAR Fiz 
ENTER MONTH-DAY-YEAR (MMODYY) vo 1lso 
FPERIOOIC ANQUNT FOR LIFE INSURANCE Y1i2.3 
HOW MANY TIMES FER YEAR Yi 
ENTER MONTH-OAY-YEAR (MMODYY) S224eo 


PERIODIC ANOUNT FOR HOUSE INSURANCE “FO 


PERIODIC 
HOW MANY 
ENTER MONTH-DOAY-YEAR 


AMOUNT FOR TELEFPHONE 22s 
TIMES FER YEAR Yi 
(MMODYY) “SOO 


PERIODIC AMOUNT FOR GAS & ELECTRIC Y17 
HlW MANY TIMES PER YEAR “12 
ENTER MONTH-DAY-YEAR (MMODYY) 


PPLESO 
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Enter credit card 1. 
Note: calculation of payments 
allows for interest over 12 payments. 


Payment was changed to a lower 
amount. 


Finish entering credit card data. 


Quarterly expense. 
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FERTODOIC AMOUNT FOR WATER FO 


FER IONIC AMOUNT FOR TRASH FICKUP YO 


PERIODIC AMOUNT FOR GROCERIES 72 
HOW MANY TIMES PER YEAR 
ENTER MONTH-DAY-YEAR. (MMI 


Dee ee Ale da dawn chee ne gerne wit atari SUSU oe Dette BAUR, dinette Ae ole ed Se 


Weekly expense. 


JN NRCan Dh ohare eh Peete ses wee SRN ee Bie 


PERIOOIC AMOUNT FOR CLOTHING +40 

HOW MANY TIMES FER YEAR 74 

ENTER MONTH-DAY-YEAR (CMMDODYY) Y110180 
PERTOOIC AMOUNT FOR PHYSICIAN 30 

HOW FANY TIMES PER YEAR ‘4 

ENTER MONTH-DAY-YEAR (MMDDYY) “120150 
FERIOOIC AMOUNT FOR DENTIST Yo 
PERIOOIC AMOUNT FOR DRUGS Fo 

PERIODIC AMOUNT FOR TUITION Fo 
PERTIOOIC AMOUNT FOR CHILD CARE Yo 
FERIOOIC AMOUNT FOR GAS/OIL Fit 


HOW MANY TINES FER YEAR T5352 
ENTER MONTH-DAY-YEAR (MMODYY) 2voO480 


Expense occurs every 4 months. 


FERTIOOIC AMOGUNT FOR COMMUTING oO 


FERIOONIC AMOUNT FOR MEDICAL FLAN YO 


PERTIOOIC AMOUNT FOR HOME REFAIR YO 


Next date for this item is the same 
as the budget start date. 


PERTIOOIC AMOUNT FOR MOVIES/CONCERTS ¥10 
Hlth) MANY TINES PER YEAR 7264 
ENTER MONTH-DAY-YEAR (CMMOLYY) “oO 


FERIOOIC AMOUNT FOR SUBSCRIPTIONS FO 


PERIODIC AMOUNT FOR MISCELLANEOUS 71% 
HOW MANY TIMES PER YEAR ?52 


Cash available at start of analysis. 


HOME BUDGETING 


CASH FLOWS FOR 7/80 
CRPENING CASH BALANCE $400 

1 RENT — 300 

1 RESTAURANTS —15 

1 MOAVIES/CONCERTS —-10 
INCOME 1 a 
GROCERIES 25 
GAS/OIL —15 
TELEPHONE 3 
RESTALIRANTS -15 
GROCERIES 25 
GAS/OIL -12 
TAR LOAN FAYMENT — 
a RESTALIRANTS -15 
MOVIES/CONCERTS -10 
MISCELLANEOUS -1s 
GAS & ELECTRIC -—17 
FRI INCOME 1 wis 
FRI GROCERIES 2 
SAT 20 VTSAa = EE, 
SAT 20 GAS/OIIL -12 
MON RESTALIRANTS —15 
MON 2 MISCELLANEOUS -18 
WET! 24 MASTERCHARGE —S 
WED 24 LIFE INSURANCE -12.5 
FRI 24 GROCERIES 2S 
SAT 27 GAS/OIL -15 
MON 2 RESTAURANTS —15 
MON 2 MOVIES/CONCERTS —10 
MON 2 MISCELLANEOUS —1a 


THU 


ms 
D 
+ 
ee a ee | 
LA had ba 


9S LA a 


Total monthly cash 
income and expenses. 


fo YO! WANT TO SEE THE NEXT MONTH 

(Y/N) FY 

RASH FLOWS FOR 10/80 

MPENING CASH BALANCE S257, 2 

WED INCOME 2 100 

WEL RENT “300 

THU INCOME 1 21 

THU GROCERIES —2 

FRI GAS/OIL ~{5 

LIN RESTAURANTS -15 

LIN MISCELLANEOUS —-1s 

WEL TELEPHONE 3 

THI & GROCERIES —2o 

FRI 10 GAS /OIL {os 

SLIN 1 RESTAURANTS -12 

SUN 12 MOVIES /CONCERTS -10 

SIN 1s MISCELLANEOUS ~1s 

WED is CAR LOAN FAYMENT i 

THU 14 INCOME 1 a 

THU 14 GROCERIES —i2 

FRI i? GAS/OITL -is 
1 


POO CA bs ho ho Re 


SAT 18 G45 % ELECTRIC - 
SUN 19% RESTALIRANTS ~15 
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SLIN 12 MISCELLANEOUS -15 
MON 20 VISA “35 
TUE 21 CAR INSURANCE -125 
THU 23 GROCERIES 25 
FRI 24 MASTERCHARIGE ~2S 
FRI 24 LIFE INSURANCE “12.5 
FRI 24 GAS/OIL -15 
SUN 26 RESTAURANTS ~15 
SUN 26 MOVIES/CONCERTS -10 
SUN 26 MISCELLANEOUS -18 
THU 30 INCOME 1 212 

THU 30 GROCERIES —25 
FRI :31 GAS/OIL -15 

CASH IN? 14:36 CASH OUTE 774.5 


no YO WANT Tea SEE THE NEXT MONTH 
(Y/N) TY 

CASH FLOWS FOR 11/80 

OPENING CASH BALANCE $1227 


SAT 1 RENT — 300 
SAT 1 CLOTHING -40 
SUN 2 RESTAURANTS -15 
SUN 2 MISCELLANEOUS -15 
THU & GROCERIES —25) 
FRI 7 GAS/OIL -15 
SAT & TELEPHONE —35 
SLIN RESTAURANTS -it 


LIN 
LIN 
THLI 
THLI 
FRI 
SAT 
= LIN 


MOVIES/CONCERTS -10 
MISCELLANEOUS -15 
3 INCOME 1 a1: 
3 GROCERIES —2o 
4 GAS/OIL -15 
va AR LOAN PAYMENT 2S 
& 
é- 


a) 
p= 
ho 


; RESTALIRANTS: —15 
SLIN 14 MISCELLANECUS -15 
TIE 16 GAS & ELECTRIC —17 
THLE 20 VISA —35 
THLI 20 GROCERIES —25 
FRI = GAS/OIL -15 
SLIN 23 RESTALIRANTS -15 
SLIN 2 MOVIES/CONCERTS -10 
SLIN 23 MISCELLANEOUS -15 
MON 24 MASTERCHARGE —23 
MON 24 LIFE INSURANCE ~12.5 
THU 27 INCOME 1 S12 
THU 27 GROCERIES —25 
FRI 28 GAS/OIL -15 
SLIN oO RESTALIRANTS -15 
SLIN 30 MISCELLANEOUS -12 
CASH INS1024 CASH GUT: 702.5 


Oe oD 


HOME BUDGETING 


Do YOU WANT TO SEE THE NEXT MONTH 
(Y/N) “FY 

CASH FLOWS FOR 12/50 

OPENING CASH BALANCE $1320.35 


MON 1 RENT —300 
MON 1 PHYSICIAN —30 
THU 4 GROCERIES -25 
FRI & GAS/OIL ~15 
SUN 7 RESTALIRANTS -15 
SUN 7 MOVIES/CONCERTSS —-10 
SLIN 7 MISCELLANEOUS -1& 
MON & TELEPHONE 35 
THLI 11 INCOME 1 212 

THU 11 GRACERIES “25 
FRI 12 GAS/OIL —15 
SLIN 14 RESTALIRANTSS —15 
SLIN 14 MISCELLANEOUS -18 
MON 15 TAR LOAN FAYMENT — VE 
THU 18 GAS & ELECTRIC -17 
THU 1:3 GROCERIES -2 
FRI 1i* GAS/OIL —15 
SAT 20 VISA — 35 
SLIN 1 RESTALIRANTS -15 
SLIN 21 MOVIES /CONCERTS -10 
SUN 1 MISCELLANEOUS -18 
WED = MASTERCHARGE —23 
WED 34 LIFE INSURANCE —12.5 
THU 25 INCOME 1 a1? 

THU 2S GROCERIES —2o 
FRI 24 GAS/OIL -15 
SUN 28 RESTALIRANTS ~15 
SUN 2S MISCELLANEOUS -135 


CASH IN? 1024 CASH OUTS Say, : 


Cro YOU WANT TO SEE THE NEXT MONTH 
(Y/N) YY 

CASH FLOWS FOR 1/781 

OPENING CASH BALANCE $1515 


THU 1 INCOME 2 100 

THU 1 RENT —300 
THU 1 GROCERIES —25 
THU 1 ALTO REPAIR -40 
FRI 2 GAS/OIL -15 
LIN 4 RESTAURANTS 15 
SLIN 4 MOVIES/CONCERTS -10 
SLIN 4 MISCELLANEOUS “18 
THU & INCOME 1 212 

THU & TELEPHONE 35 
THU & GROCERTES “2c 
FRI ? GAS/OIL -15 
SUN 11 RESTAURANTS -15 
SUN 11 MISCELLANEOUS -15 
THU 1s CAR LOAN FAYMENT — ve 


95 
THU 15 GROCERIES -25 
FRI 14 GAS/OIL -15 


7e 


SLIN 
S LIN 
SILIN 
m= Lity 
TUE 
WET 
THU 
THLI 
FRI 
SAT 
SAT 
= LIN 
SLIN 
THLI 
FRI 


9 0 0 


wr 


Mobb bo Roe ee ee 


fd to bo ba 


me oe 


co You 
(Y/N) 
CASH FLOWS FOR 2/51 

OPENING CASH BALANCE $1404.5 


LIN 
IN 
LIN 
LIN 
LIN 
THLI 
THU 
FRI 
=LIN 
SLIN 
SLIN 
THLI 
FRI 
= LIN 
= LIN 
LIN 
LIN 
WED 
THU 
THLI 
FRI 
FRI 
LIN 
LIN 
THE 
THE 


THLE = 


FRI 


1 


al el el oe eel ee oe oe A et 


GAS & ELECTRIC 
RESTALIRANTS 
MOVIES/CONCERTS 
MISCELLANEOUS 
VISA 

CAR INSURANCE 
INCOME 1 212 
GROCERIES 
GAS/OIL 
MASTERCHARGE 
LIFE INSURANCE 
RESTAURANTS 
MISCELLANEOUS 
GROCERIES 
GAS/OIL 


CASH INF 1124 CASH OUT? 1034.5 


~23 
~12.5 
-15 
-18 


mf: 


ae saat 


-15 


WANT To SEE THE NEXT MONTH 


2Y 


RENT 

CLOTHING 
RESTALIRANTS 
MOVIES/CONCERTS 
MISCELLANEOUS 
INCOME 1 212 
GROCERIES 
GAS/OIL 
TELEPHONE 
RESTAURANTS 
MISCELLANEOUS 
GROCERIES 
GAS/OITL 

CAR LOAN PAYMENT 
RESTAURANTS 
MOVIES/CONCERTS 
MISCELLANEOUS 
GAS & ELECTRIC 
INCUME 1 212 
GROCERIES 

VISA 

GAS/OIL 
RESTALIRANTS 
MISCELLANEOUS 
MASTERCHARGE 
LIFE INSURANCE 
GROCERIES 
GAS/OIL 


=: 


CASH IN? 1024 CASH QUTSaa?.: 


PRACTICAL BASIC PROGRAMS — APPLE II 


HOME BUDGETING 


no YOU WANT TO sEE THE NEXT MUNTH 
(Y/N) TY 
TASH FLOWS FOR 3/81 
OPENING CASH BALANCE $1732 
SLIN I RENT — 200 
SLIN 1 PHYSTCTAN — 30 
LIN RESTAURANTS —-15 
LIN MOVIES/CONCERTS -10 
LIN MISCELLANEOUS —15 
THU INCOME 1 212 
THU GROCERIES 25 
FRI GAS/OIL -15 
LIN TELEPHONE 3. 
LIN RESTAURANTS -15 
LIN MISCELLANEOUS -15 
THU 12 GROCERIES “25 
FRI is GAS/OIL -15 
SIN 1S TAR LOAN PAYMENT Vo 
SUN IS RESTAURANTS -15 
SIN 1 MOVIES/CONCERTS -10 
SUN 15 MISCELLANEOUS —1s 
WED 15 GAS & ELECTRIC -17 
THI i? INCOME 1 212 
THU 1? GROCERIES —25 
FRI 20 VISA — 35 
FRI 20 GAS/OIL -15 
SUN 22 RESTAURANTS -15 
SUN 2 MISLELLANEUUS —-18 
THE 24 MASTERCHARGE —23 
TUE 24 LIFE INSURANCE —-12. 
THU 24 GROCERIES — 
FRI 27 GAS/OIL -15 
SUN 2 RESTAURANTS -15 
SUN 2 MOVIES/CONCERTS -10 
SLIN 2 MISCELLANEOUS “15 
CASH IN? 1024 CASH OUT? Oe. 


CA a ee 


1 5 mm or 


fi 


Do You WANT TO SEE THE NEXT MONTH 
(Y/N) FY 

CASH FLOWS FOR 4/91 

OPENING CASH BALANCE $1850.53 

WED INCOME 2 100 

WED RENT — 300 
THU INCOME 1 ap 

THU GROCERIES 2 
FRI GAS/OIL -13 
LIN RESTAURANTS ~15 
LIN MISCELLANEOUS ~—1s 
WELD TELEPHONE tS 
THLI GROCERIES ~25 
FRI 10 GbAS/OIL -13 
SUN 12 RESTAURANTS . ~15 
SUN 12 MOVIES/CONCERTS ~10 
SUN 12 MISCELLANEOUS -15 
WED 15 CAR LOAN FAYMENT Vo 


“OO LA Uo ha ba ee 


74 


THU 
THI 
FRI 
SAT 
= LIN 
SIN 
MCN 


TLE “s 
THU = 


FRI 
FRI 
FRI 


SLIN : 
LIN i 


= LIN 
THU 
THU 


Cd Yow! WANT Ti 
(Y/N) 


a 
why 


IO 


mO) 


?N 
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INCOME 1 S12 
GROCERIES -25 


GAS/OIL -—15 
GAS & ELECTRIC ~1/ 
RESTALIRANT = ~15 
MISCELLANEOUS -15 
VISA — 32 
TAR INSURANCE -125 


GROCERIES 25 
NASTERCHARGE rant 
LIFE INSURANCE 
GAS/OIL 
RESTAURANTS 
MOVIES/CONCERTS -10 
MISCELLANEOUS 
INCOME 1 212 
GROCERIES 25 

ASH INF 16346 CASH OUT ?77, 5 


SEE THE NEXT MONTH 


Program Listing 


10 
20 
0) 
40 
BO 
&O 
7 
0) 
0) 
100 
110 
120 
130 
140 
120 
140 
170 
130 
10 
200 
210 
wel 
2g 
240 
met) 
240 
270 
250 


=O 


REM 
IM 
REM 
REM 


HOME BUDGETING/CASH FLOW ANALYSIS 


D¢i2),71003,2),00(4,3),0105,5),01$(5),E0(25, 2) 


[i¢) 
Toc) 


—--DAY OFFSET FACTORS 
-~-SALARIED INCOME 


REM 
REM 
REM 
REM 
DATA 


C1) 
FOC) 


(1s ) 


iO ¢) 


--CREDIT INSTRUMENTS 
—~~EXFENSES 

-~-DESCRIFTIONS OF CREDIT CARDS 
--FIXED-TERM LOANS 


REM 

DATA 
DATA 
DATA 
DATA 
DATA 
LATA 
DATA 
DATA 


"MORTGAGE", "CAR LOAN", "OTHER LOAN" 
EXPENSES 
"PROPERTY TAX". "RENT" 
"LIFE INSURANCE", "HOUSE INSURANCE", "CAR INSURANCE" 
"TELEPHONE", "GAS & ELECTRIC", "WATER". "TRASH FICKUF" 
"GROCERIES", "CLOTHING", "FHYSICIAN", "DENTIST" 
"DRUGS". "TUITION", "CHILO CARE". "GAS/OIL" 
"ALITO REPAIR", "COMMUTING", "MEDICAL PLAN" 
"HOME REPAIR", "RESTAURANTS "> "MOVIES/CONCERTS" 
"SUBSCRIPTIONS". "MISCELLANEOUS" 


M1) 
[i¢( =) 
OS) 
(4) 
OCs) 
(4) 
Lit 7) 
Os) 
Ti¢%) 
O10) 
N¢11) 


31 


_ 


set, — 


re Oe 2 oS 
™ 
Ld 


hy fla eS me 


1 


HOME BUDGETING 


300 OC1f) = 31 


210 


$ bat *o! 


350 
=40 
370 
tet ©) 
27 


tO 
£00 
410 
&20 
30 
640) 
Ga) 
H40 
&7Q 
ASO 
EO 
FOO 
710 
72Q 
730 
740 
Fag 
740 


0 = "SATSUNMONTUEWEDTHLIFRI " 

PRINT "HOME BUDGETING/CASH FLOW MODEL" 
FRINT 

FRINT "DATE Ta START ANALYSIS FROM: " 
GOSUB 2eyvo 

1 |e 

Y 

M 
C4 Y #£ 10000 + M # 100 + [2 

FRINT 

REM ENTER INCOMES-—-AMOLINTS & FREQUENCY 
Iz = © 

X$ = "“TNCOME 


— 
pt. 
i 


PRINT "------ NET SALARY "312 + 13"------ 


GOSUB PAGO 

IF Az (1) = O THEN 310 
Iz = [2 + 1 
Io¢I2.,1) = 
TO(I2,2) = 
BOTA 440 
PRINT 

REM ENTER SECURED LOANS 
FOR I = 1 TO 3 

REAL X$ 
FRINT 
GOS BsAAO 

TF AxS(1) = 0 THEN 640 

IF Az¢1) <= O THEN S50 
mOCTI,1) = Az(1) 
COCI,=2) = ASCs) 

PRINT "CURRENT BALANCE "S$ 
INFUT CocrI,3) 

IF ©Oo(I,3) < 1 THEN S40 
NEXT I 


a1 
2(2 


AZ(1) 
AZ(2) 


REM ENTER CREDIT CARDS AND DESCRIPTIONS 


REM MONTHLY FAYMENTS ARE ASSUMED 
PRINT 
Kk = 1 

GOSUB Soro 

IF C#1l$(K) <= = " " THEN 730 
k= K+ I 

GOTO 470 
C4= kf - | 

REM ENTER EXPENSES 

FOR KF = 1 TO 2S 

PRINT 

REAL X% 

GOS S240 
EO(K.21) = ALCL) 
EQ(K,2) = AzZ(2) 

NEXT FE 

REM INFUT FRESENT CASH RESERVES 
PRINT "ENTER CASH ON HAND "3 
INFLUT BO 


79 
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e200 REM BEGIN ANALYSIS = 
40 PRINT 
> FPRINT “CASH FLOWS FOR "“SMi3s"/"S3 V1 
O FRINT "OQRPENING CASH BALANCE "3 B0O 
s90 El = oO 

2700 I1 = oO 

Y1QO FOR Fl = Di To OCM1) 

720 RESTORE 

730 FOR J = 1 TO I2 

74QO REM CHECK FOR INCOME 

YaQ IF INT (10¢€.1.2)) > D4 THEN 1060 
Yo BO = BO + [O(1,1) 
Y7O Til = I1 + [0¢.1,1) 
v0 M = Mi 
7970 [is = D1 

1000 Y = 
1010 D3 = INT ((IO¢.,2) -— INT (1061,2))) # 100 + O,&) 

1920 AZ(1) = OS / 100 

1020 GOSUEB 2510 

1040 [O(J,2) = ASZC1) + Y # 10000 + M # 100 + [2 

1050 PRINT AS3" "30115 TABC 2F)s3 "INCOME “$25 TAB S25)3 10,1) 

19040 NEXT 

1070 REM CALCULATE OUTFLOWS FOR FIXED-TERM LOANS 

10380 FOR J = 1 To 3 

1070 READ Xx 

11900 IF co¢.3) = O OR INT (COC.1,2)) > D4 THEN 1200 

1120 IF cCotJd,3) > CO¢J,1) THEN 1140 

1120 COCI,1) = COoCI,3) 

1140 Az(1) = CoCt,1) 

1150 ASCS) = COCCI.) 

1140 OGOSUB 1700 

1170 CO¢C,2) = (fOCI,2) — INT (CO(I,2))) + Y # 10000 + M # 100 + [2 
1150 PRINT AS?" "S013 TABC F)5X#3" PAYMENT"$ TAB( 30O)3 - 1 # AZ(1) 
1170 COCI,3) = CoO¢.1,3) - AzC1) 

12700 NEXT J 

12710 REM CALCULATE OUTFLOWS FOR CHARGE CARDS 

WeeOo 6 6FOR UU = hdl CUT 4 

220 TF (10.5) > 04 OR Ci¢id.2) = O THEN 1340 

250 06©d@TrMFCUdA LS) o> C1, 4) THEN 1270 

12740 C1i¢d,4) = CileOd.2) 

1270 ALS C1) = C1l¢1,4) 

W280 ALCS) = Cil(1,5) + O12 

w?Oo X$ = C1) 

1200 GOSUB 1700 

1310 PRINT ASs" "sis TABC 7)3C1$0.)3 TAB(C 30): - 1 # AZC1) 

1320 M1¢4,2) = Cl Od,2) —- Azt1) 

1220 C1i(.,5) = Y *# 10000 + M * 100 + De 

1240 NEXT J 
3s2006C~ RRLEM—CUCU CALCULATE GQUTFLOWS FOR EXPENSES 
£0 FOR J = 1 To 25 

79 READ X# 

330 IF INT (EOC1,2)) > 04 OR EO(..1) = O THEN 1450 
1400 AZ(1) = EOC1,1) 
1410 Az(S) = EOC.1,2) 
1420 GOSUB 1700 


tee 0 0 Oo oo 
CaN i 


HOME BUDGETING 


1430 FRINT As" "S01: TABC Y)3X$3 TABC 3O0)3 - 1 # Az(1) 

1440 EO(J,2) = (EOC4,2) - INT (EOCI,2))) + Y # 10000 + M # 100 + Die 
1450 NEXT J 

1440 D1 = Ti + 1 

1470 D4 = Y1 * 10000 + M1 # 100 + [il 

1430 M = Mi 

1470 D2 = 1 

1200 Y = Yi 

1510 Gosueb 2evo 

1320 
1S30 Its = 1 
1540 D2 = OCM1) 
1350 MM 
1240 ¥ 
1870 Gost 
1230 D1 = 1 
1370 M1 = M 
16400 Y1 = 
1410 GOSUB 2FEavoO 

1420 04 = Y1 # 10000 + M1 # 100 + 1 

1430 PRINT TAR 10)3 "CASH IN@"$I1is TABC 25)5 "CASH OUTS "5E1 
1440 FRINT 

1420 PRINT "DO You WANT To SEE THE NEXT MONTH" 

14352 PRINT "(CY/N) "S$ 

1440 INPUT xXos 

1670 IF xos = "Y¥" THEN &70 

1420 6F XO = "“N" THEN S320 

1470 GOTO 870 

1700 REM AFFPLY EXPENSES 


oi 
<z 


27d 


1710 
1720 
1725 
1730 
1735 

Pa? 
1740 
1745 


1720 


XOd — at 


IF BO 
PRINT 
FRINT 
FRINT 
FRINT 
PRINT 
FRINT 
INFUT 


- AL C1) 


"CASH NEEDED 
" $"3AS0103 "ON HAND: 


© THEN 1710 


FOR: 


"SX 


"3 BO 


"ENTER D=DELAY EXPENSE: " 


"IMSLISE CREDIT CARD 


KOS 


1760 IF xXxos = "DO" THEN 1? 30 

17/790 IF xO =< 3 "CC" THEN 1740 

?f— IF (4 = 1 THEN xO = 1: GOTO 1800 

17580 PRINT "CREDIT CARDO NUMBER (€1-"sC43"0R ZERO) "3 
1770 =0oINFUT xo 

1200 IF XO < 1 THEN 1740 

Wig TF xo > 14 THEN 1780 

Le2O IF C1¢X0,282) + AS(1) = = 01¢X0,.3) THEN 1850 
1320 FRINT "AVAILABLE "sl1$(XO)$3" CREDIT: $"301¢X0.3) - C1¢OX0,2) 
1340 0 6GOTO 1780 

Ls50 ©1(X0,2) = (1(X0,2) + AZC1) 

1340 EK = Xo 

79 XOS = "1" 

20 G0OS0UB 2140 

IC) X Ob — 

OO GOTO Leso 

710 BO = BO —- Az(1) 


ow Cx Y on 
“2 te ce 


a ee 


78 


1Y20 
1730 


1740 


SOOO 
SOLO 
ZOO 
SOVA0) 
SOA 
ZOEG 
ZOEO 
2070 
SOO 
SOFO 
21Q0 
2110 
2120 
2130 
2140 
2130 
2140 
2170 
21lSo 
21i?o 
2200 
221 


eels 


ore mre em 
aaa () 
~ me ~ saa 
efibee cfs alone “oe 


~ one 
OT 
Bene ne ofene 


2230 


2240 


atl) 


2260 
22 /O 
maO 
we ?O) 
S300 
2olo 
S320 
SO 
240 
2oaO 
240 
w7O 
bet ©) 
Lavo 
SAO] 
2410 
2420 
SAO 


E 


I 
I 


Di 
REM 
Gites LR 
IF xO 
FRINT 
RE TLR 
REM 
PRINT 
INFUT 
IF 1 
FRINT 
INPUT 
IF cl 
FRINT 
INFLT 
IF 1 
FRINT 
INFUT 
IF tl 
IF tl 

lide, 4 

IF : 


1 + AZ(1) 
INT ((A2R(2) 

NT (AZ(2) / 10000) 

NT ((AZ(Z) - Y *# 10000) / 100) 

INT ((AB(2) — (Y # 10000 + M # 100))) 

CALCULATE NEXT DATE 
2510 

$< "TD" THEN 2010 
"EXPENSE IS DELAYED 

N 

ROUTINE TO ENTER CREDIT 


UNTIL 


"SME" /" 302 


& CHARGE CARD 


PRACTICAL BASIC PROGRAMS — APPLE II 


INT (ASCS))) # 100 + O53) 


susirev 


DATA 


"NAME OF CREDIT CARD "Skis "CRETURN TO END)" 


CAs) 


$(E) 2 = " " THEN 2350 


"ANNUAL INTEREST RATE "3 
Micke: 1) 

(F,1) = O THEN 2020 
"CURRENT BALANCE 
Cite, 2) 
(Bea) 2 


ioe 
? 


© THEN 2040 


"CREDIT LIMIT ": 
i(k. 3) 
(EF, 3) = O THEN 2070 


(Fa) © THEN 2270 
) = INT (9.1 # C1CK,2) # 100 + 0.5) 


I(K,1) / 100 


GOSUB ao 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
INFLIT 
IF Xi 
PRINT 
INFLIT 
GOTO 
IF xo 
PRINT 
AZ(z) 
TM et 
IF X1 
C1(K,5 
RETUR 
REM 
REM 
PRINT 
INFLIT 
IF Az 
PRINT 
INFLIT 
IF Az 


Ail:" FAYMENTS OF "SC 1(KE,4) 
"NEEDED To FAY DERT" 


“CHANGE AMOUNT 
X1 
$= os "Y¥" THEN 
"ENTER DESIRED 
Mick, 4) 
2130 
$ = "1" THEN 
"ENTER WEXT 
= 
2470 


(Y/N) "5 
2 2O 


FAYMENT ANOQUNT 


tt oe 
? 


rope bl O 


"SCIS(E 03" BILLING DATES 


1 THEN 
Az (2) 


= 21Zo 

) = 

N 

ROWTINE Te 

Az() ARRAY 
"PERTOOTC 
AZC1) 

(1) = Q 
“HOW MANY 
AZ(2) 

(2) 2 


CALCULATE EXPENSE 
CONTAINS RESULTS 
AMOUNT FOR "3 Xs" 


tl « 
3 


THEN 22500 
TIMES PER YEAR 


tia 
? 


= 0 THEN 2320 


FRERQUENC 


f 100 


IES 


HOME BUDGETING 


2440 
24350 
2440 
2470 
S40 
2470 
200 
2olO 
2a 
xt 
ee eet ©) 


2 t4Q 


aah © 
BaGO 
2u7Q 
am tn 1 ©) 


atv 
2400 
2G1Q 


a coe 
2&0 
2640 
SEO 


a oo 
2470 
2 FiO 
S90) 
27 
2710 
2720 
2730 
2/740 
270 
2 /&O 
2770 
7S 
2720 
SOQ 
210 
S20 


atae "see! atime 


220 


SS4a 
2850 
2&0 


2a 7O 


ot 
> 


F2Z2p<z 


IF AZ (2) 


PRINT 
GOT 
nCeslLib 
IF Xl 
AZ(S) = 
RETURN 


REM FINE 


REM 
IF 24 
IF [rz 
FOR EF 
M= 
IF M = 
M= 1 


NEXT FE 
RETURN 
REM 


< 100 THEN 
"FREQUENCY CANNOT EXCEED 99 DAYS" 
2410 


2vvo 
- 1 THEN 
A2(2) / 100 + Y * 10000 + M # 100 + De 


R 


IF Oe = 


se = 15 


GOTO 2470 


IF DG 2 


me 5 
Pu TH 


Y 
Mo= 
RE TLIRN 
Cis = 
REM 
IF Dz 
De 


GOTO 
D2 = D2 
RETURN 


M+ ] 


Y + 1 


NEXT MONTHLY; 
HUARTERLY OCCURRENCE 


Cs < 


170 12 / 


“— 
vad 


THEN 


CALCULATE NEXT 


~ DCM) OR 


D¢M) THEN 
+ 15 


+ [ts < 
- (D¢(M) —- De) 


F&O 


12 


+ [Us 


THEN 


INT (¥ 7 4) THEN 


1700 THEN = 
1700 


REM 
IF Y > 
Y=yY+ 
IF M > 2 


“s 
ral 


pPNx~Zax<< 
+ 


Hon ow tt 


-f- 


12 


1 


a 


THEN 


% MM + 


2945 


2aOQ 


20 
| ee: 
SayvO 


prompt Bie 


S430 


2730 


INT (3435.25 / D3) 
CALCULATE A DAY D3 DAYS FROM M/D2/Y 
= [¢(M) THEN 


2740 


P20 


INT (Y¥Y 4 100) + 
INT (CN 7 7 - 


2470 


BIMONTHLY 


> INT (24 / D3) THEN 2740 
34 THEN 26 


240 


SUBROUTINE To CALCULATE DAY OF WEEK 


2430 


SEMIMONTHLY OCCURRENCE 
* 1 THEN 


# (M + 1)) + ¥ + 
INT (Y / 400) + 2 


te 


INT (N / 7)) *# 7 + O15) 


INT (YY / 4) 
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2770 AS = MIDS (OB,(N *# 3) + 1,73) 
270 RETLIAN 

2vVvO REM ROUTINE TO ENTER DATE 

3000 REM DATE IS FASSED BACK IN M,.D2 AND Y 

2010 O¢(2) = SS 

32020 6©PRINT “ENTER MONTH-DAY-YEAR (MMDODYY) "3 

SO80 INFLIT Xi 

3040 IF X1 = © THEN 3140 

3030 j[F X1 = -—- 1] THEN ‘3170 

204640 M = INT ¢(X1 / 164) 

2070 IF M > 12 OR M <= 1 THEN 3020 

2070 Y = INT ¢¢OX1 / 100 ~— INT ¢(X1 /7 100)) # 100 + O52) 
2100 IF Y 4 4 <4 & INT (Y / 4) THEN 3120 

3110 DO(2) = 2 

3120 D2 = INT ¢(¢X1 - (MH * 1E4 + Y)) 7/7 100) 

S130 IF De <= 1 THEN 2020 

2140 IF D2 > DO(M) THEN 3020 

S15O)06|6[hGOTO US1i2O 

3140 M = MI 


2170 RETURN 

2260 REM SUBROUTINE TO DETERMINE TERM OF LOAN 

IF=INTEREST RATE,FP1=FPRINCIPAL, A1=FAYMENT AMOLINT 

REF. SOME COMMON BASIC PROGRAMS sRO ED., Fos 
A= LOG (1 + (IF 7 12) # 12) 

C -— €( LOW (1 -— (Fl # IF) / (12 # Al)) /# A) 

QO Al INT (Al # 12 + 0.5) 

RETURN 

O END 


1 

| 

—™ 0 1 oo NY 
b 

— A 

mm 

HOW = 


Cet tet tt et te at 
Ho i pi bo bo PS 


ba 
=) 


84 


Critical Path Method (CPM) 


This program calculates the time needed to complete a set of interrelated activities. 

Before using the program, set up a CPM diagram and a precedence table. As you establish the 
network, make sure you include ‘‘dummy ’’ activities in the diagram. These activities have no duration, 
but they may be necessary to indicate precedence of some activities over others in the network. 

One feature of this program allows you to revise the network by changing activity durations and costs. 
In this way, you can observe changes in the critical path. Depending on the degree to which you revise 
the network, the path may shift by adding or eliminating activities. 


Program Notes 


This program currently allows 100 activities. If you want to change this, modify line 10 of the program as 
follows: 
70 DIM A(I, 2), SD, Fd), Ed, 2) 


Replace the expression I with your maximum (for example, 15, 20, and so forth). 
Negative slack time can exist for an activity. However, the program does not factor this into start 
times, end times or the critical path length. 


Washoe Valves is having its statewide sale-a-thon, a contest in which the company’s three salespersons 
travel up Indiana, covering accounts in their territories and making as many sales as possible. At the end 
of their sale-a-thon, all three salespeople go to Chicago for a recap meeting. 

Nance Graham, the sales manager, wants to know when each salesperson should start the trip, how 
much time each will spend driving and selling, and when to expect each salesperson to arrive in Chicago. 
Her precedence chart contains daily reimbursements to help calculate travel advances. 


. Nodal Time Cost 
Activity Sequence (hours) 
1. Gary drives to Terre Haute ]-2 2 30 
2. Nance drives to Indianapolis 1-3 3 40 
3. Lana drives to Muncie 1-4 3.5 49 
4. Sell in Terre Haute 2-5 36 125 
5. Sell in Indianapolis 3-6 48 320 
6. Sell in Muncie 4-7 48 125 
7. Gary drives to Lafayette 5-8 3 40 
8. Nance drives to Chicago 6-11 5 35 
9. Lana drives to Ft. Wayne, 7-10 2 30 
drops off valves 

10. Sell in Lafayette 8-9 16 90 
11. Lana drives to Chicago 9-11 4 52 
12. Gary drives to Chicago 10-11 2 30 


How does Nance run this program? 
Answer: The minimum time needed to complete the sale-a-thon is 61 hours (the critical path length), 
and it will cost $966 in travel advances. 
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HOW MANY ACTIVITIES IN THIS NETWORK 


ENTER 
ENTER 
ENTER 
ENTER 
ENTER 
ENTER 
ENTER 
ENTER 
ENTER 
ENTER 
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ENTER 
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ENTER 
ENTER 
ENTER 
ENTER 
ENTER 
ENTER 
ENTER 
ENTER 
ENTER 
ENTER 
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fn Se ee 
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an) 
ca 


START, END NODES FoR ACT. 1 
DURATION AND Cost v.30 


START, END NODES FOR ACT. 2 


DURATION AND CosT 33.40 


=<TARTL,END NOQES FOR ACT. 3 F 


DURATION AND Cost vs. 3.4 


START»END NODES FOR ACT. 4 
DURATION AND Cost Ys6é.125 


START. END NODES FOR ACT. 3 ° 


QURATION AND Cost Y4a, 320 


START»END NODES FOR ACT. 4 * 


DURATION AND CosT $4,125 


START, END NODES FOR ACT. 7 ° 


DURATION AND COST Sa. 40 


START, END NODES FOR ACT. & ° 


DURATION AND Cost Sa. 35 


START, END NODES FOR ACT. ? 
DURATION AND Cost vit. 30 


START: ENDO NODES FOR ACT. 10 
DURATION AND Cost 21d. 20 


START»ENDO NODES FOR ACT. 11 
DURATION AND Cost 24,52 


START,»,END NODES FoR act. 12 
QURATION AND Cost Fs. 30 


END EARLY LATE 


NODE START FINISH DUR. STAC 
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CRITICAL PATH METHOD (CPM) 


THE CRITICAL FATH LENGTH IS 41 
TOTAL CosT OF THIS NETWORK= 244 


DO You WANT Ta CHANGE ANY 
ACTIVITY QURATIONS (Y/N) N 


Practice Problems 


1. Suppose Gary only spends 30 hours in Terre Haute. Will the critical path be different? Who will be 
able to wait before leaving, and for how long? 

Answer: The critical path reduces to 56 hours. Gary can now wait one hour before leaving on his trip, 
and Lana can wait half an hour. 


2. Nance may take her plane rather than drive. The flying time to Indianapolis is half an hour, and the 
time to Chicago is 45 minutes. She will have to pay a landing fee of $5 at Indianapolis, and $20 at 
Chicago, in addition to the costs shown above. 

With this information, how long can she wait before leaving? What will the total cost be? 

Answer: In the original network, Nance could wait five hours. She can now wait 11.75 hours before 
leaving. The total network cost is $991. 


Program Listing 


10 REM CRITICAL PATH METHOD (CPM) 
2“O REM AC)=START AND ENDO NODES FOR EACH ACTIVITY 
20 REM SC)=EARLY START TIMES FOR EACH ACTIVITY 


40 REM F()=LATE FINISH TIMES FOR EACH ACTIVITY 
“0 REM EQ)=DQURATICNS AND COSTS OF NORMAL ACTIVITIES 


40 REM (CCO)=DURATIONS AND COSTS OF CRASH ACTIVITIES 
7QO DIM AC100,2),50100),F0100),E0100,2),00100,2) 
SO DEF FN R¢Z1) = INT ((21 # 1000 + .5)) 4 1000 


70 PRINT "CRITICAL PATH METHOD" 

100 PRINT 

110 PRINT "HOW MANY ACTIVITIES IN THIS NETWORK "3 
120 INPUT N 

130 FOR I= 1 TON 

140 FRINT 

iSO PRINT "ENTER START,END NODES FOR ACT. "srs" "3 
140 INPUT ACI,1):ACI+2) 

170 IF ACI,2) < = ACI,1) THEN 200 

170) IF ACI,2) < N THEN 240 

200 PRINT "START NODE MUST BE NUMBERED LOWER" 

210 FRINT " THAN END NODE, AND END NODE MUST" 

220 PRINT " BE LESS THAN THE NUMBER OF ACTIVITIES." 
230 PRINT " ##% TRY ENTRY AGAIN ###" 

240 PRINT 

250 GOTO 140 

260 PRINT "ENTER DURATION AND cost "3 

270 INPUT E(I,1),E(1,2) 

SSO ScD) 2 ©) 

200 F(T) = 0 

300 NEXT I 

310 REM LOOP TO FIND EARLY START TIMES FOR NETWORK 


| 
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FOR I = 1 TON 
IF S(ACI,2)) & 
S(ACI,1)) + EC(I,1) 


= SE) 


SC(ACI,21)) + ECI,1) THEN 


S40 SC(ACI;2)) = 

a0 NEXT I 

S60 FCACN,2)) = SCACN, &£)) 

370 REM LOOP To CALCULATE LATE FINISH TIMES FOR NETWORK 
230 FOR I = N TO 1 sTEF - 1 


IF FCACI,1)) = 
IF FCACI:1)) & 
BOT 430 
FCACT,1)) 
NEXT I 
Ci = oO 
L C) 
4640 FRINT 
REM 
PRINT 
PRINT 
FOR I 
210 PRINT 
PRINT 
= 1 


QO THEN 420 


FCACT,2)) - E(LI,1) THEN 420 


FCACTI,2)) - ECI,1) 


CALCULATE sLACK TIME IN Si 
"START END EARLY LATE" 
"NOQE NODE START FINISH DUR, 

1 7u N 

ACI,1): TABC 

FCACI,2))3 TAR 

= FCACTI,2)) SCACI,1)) 


STACK Cost" 


FIFACTI, 203 TABC 12)35CACT,1))3 
SoIV3ECI,1)3 TABC 3O)3 
~ ECI.,1) 


TAB 15)35 


240 [FF 31 2 0 THEN S70 


245 JF bb *» = FCACTI,2)) THEN SO 
~t0 PRINT "CORIT. "3 
260 L = L + ECI,1) 


a7) 
nt) 


MOO 


GOT 400 

FRINT 13 

FRINT TAB( B34)3E¢(I,2) 
1 mi + Ec], 2) 
. NEXT I 
FRINT 
FRINT 
FRINT 
PRINT 
FRINT 
PRINT 
INPLIT 
IF At 
IF At =< 
FRINT 
FRINT 


—_— 
oonne 


t 
- 
p—h 
om) —, =~ am 
: _t Ls! —_ 1 


"THE CRITICAL FATH LENGTH ITS "3 
"TOTAL COST OF THIS NETWORK = 


L 
"StI 


—, —- 
Cy ee 
—_ —_ 


"OO YOU WANT TO CHANGE ANY" 
"ACTIVITY DURATIONS CY/N) "3 
AS 


mir SRR gp om 
“OT SO AE eos 

an) —~ 

= Le 


cs Pee ve eo obs a 


—_, 
— 


700 
710 
720 


730 


"N" THEN &70 


"YY" THEN 46460 


"WHICH ACTIVITY "3 


740 
220 
770 
Fa 
VA=18) 
AYO 
BOO 
mio 


S20 


INFLUT 


IF I 


FR INT 
FR INT 
FRINT 
INFLIT 
FR INT 


[ 

1 OR I => N THEN 720 
"CURRENT DURATION I 
"COST = "sECI,2) 
"ENTER NEW OURATION AND Cost "3 
ECI,1),E¢1I,2) 

UM eo mm mt oe re RECALCULATION NETWORK -~—---— " 


"SECI,1) 


1 TO N 


mea0 S¢I) = a 
S40 FCI) = © 


SEC) 
ita) 
m7O 


NEXT I 
310 


GOTO 
END 
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Reference 


Brown, Kenneth S., and ReVelle, Jack B. Quantitative Methods for Managerial Decisions. Reading, Mass.: 
Addison-Wesley, 1979. 
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Program Evaluation and Review Technique (PERT) 


This program calculates the minimum time needed to complete a complex project under uncertain 
conditions, and calculates the probability of the project’s completion by a target time which you enter 


and can modify. 

The program also calculates late start, early finish, and late finish times for each activity, as well as the 
slack time and standard deviation of expected activity times. 

Before using the program, you must first organize the project, using PERT’s graphing technique or a 
precedence table. To use the program, you must enter the number of activities in this project, including 
dummy activities. For each activity, you need to enter its start and end nodes, followed by the optimistic, 
most likely, and pessimistic duration estimates. 

When you enter each activity, you must be sure each start node you enter is greater than the previous 
end node. If not, the program will ask you to reenter the start and end nodes. 


Program Notes 


This program is set for a maximum of 100 activities. If you want to change this, modify line 60 of the 
program as follows: 
60 DIM A(I,2), S(I), F(), E(,2) 


Replace the expression I with your maximum. 
Negative slack time can exist for an activity. However, the program does not factor this into start 
times, end times, or the critical path length. 


Example 


Harriet just bought a Victorian house, advertised as a fixer-upper. She asked her contractor to provide 
her with three time estimates for each task involved in the remodeling. Her PERT chart and precedence 
table look like this: 


Activity Start End Optimistic Most Likely Pessimistic: 
Node Node Time Time Time 
. Scrape exterior l 2 


. Remove wallpaper 

. Replace cabinetry ] 4 

Paint exterior 2 5 

(dummy activity) 3 6 

Lay kitchen floor 4 6 
5 7 
6 7 
7 8 


—N 


. Paint exterior trim 
. Paint interior walls 
. Refinish wood floors 


NNR KF ONWN = 
HB WN DN OC WAR WH LO 


PROGRAM EVALUATION AND REVIEW TECHNIQUE (PERT) 


How will she run the program? What is the minimum time needed to complete the project? What is the 
probability of completing it one day sooner than expected? 

Answer: The minimum time to complete the project is 12.916 days. The probability of completing the 
remodeling in 11.916 days is approximately 12.96%. 


PROGRAM EVALUATION 
AND REVIEW TECHNIQUE 


ENTER THE NUMBER OF 
ACTIVITIES IN THIS NETWORK ?? 


----- ACTIVITY 1----- 

ENTER START NODE, END NODE 71,2 
ENTER THREE TIME ESTIMATES 

FOR THIS ACTIVITY (A,M,B) 71,2,4 


a ACTIVITY 2----- 

ENTER START NODE, END NODE v1.3 
ENTER THREE TIME ESTIMATES 

FOR THIS ACTIVITY (A,M,B) Ye.3,5 


a ACTIVITY s----- 

ENTER START NODE, END NODE Y1,4 
ENTER THREE TIME ESTIMATES 

FOR THIS ACTIVITY (A »M.H) F3,4.7 


ENTER START NODE, END NODE v2.5 
ENTER THREE TIME ESTIMATES 
FOR THIS ACTIVITY (A,M,B) Y¥2.35,46 


ENTER START NODE, END NODE ¥3.4 
ENTER THREE TIME ESTIMATES 
FOR THIS ACTIVITY (A.M,B) 70,0,0 


ne ACTIVITY &----—- 

ENTER START NODE, END NODE Y4,4 
ENTER THREE TIME ESTIMATES 

FOR THIS ACTIVITY (A»M,B) Yloe.2.5 


ENTER START NODE, ENDO NODE 35,7 
ENTER THREE TIME ESTIMATES 
FOR THIS ACTIVITY (A,M.B) 71.5,2,4 


-~-—- ACTIVITY &----- 

ENTER START NODE, END NODE 74,7 
ENTER THREE TIME ESTIMATES 

FOR THIS ACTIVITY (A»M,B) ?2,3.3 


~—-—- ACTIVITY #----~ 

ENTER START NODE, END NODE 77,8 
ENTER THREE TIME ESTIMATES 

FOR THIS ACTIVITY (A.M.B) 72,4,5 
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ACTIVITY 1 (NODE 1 To NODE 2) 
Is A NON-CRITICAL EVENT. 
EXPECTED DURATION: 2.147 
STANDARD DEVIATION: 3 

EARLY START: © 

LATE START: 1.323 


EARLY FINISH: 2.147 
LATE FINISH: 3.5 
SLACK TIME: 1.333 


0 an came Gttte ©0500 GEbeD GENES GFEST COED GUTED CUbED aonED GEtTO GRIDS Gao <——ED GUNES GEEEP GFSe® GuEED cotED GEDeE GETS Glue Gee emme Gee Ge. GD Gem ee cows Te oe em owe ct ee ee Oe 


ACTIVITY 2 (NODE 1 TO NODE =) 
Is A NON-CRITICAL EVENT. 
EXPECTED DURATION: 3.147 
STANDARD DEVIATION: .5 

EARLY START: © 

LATE START: 3.082 

EARLY FINISH® 3.147 

LATE FINISH: 46.25 

SLACK TIME: 3.083 


ACTIVITY 3 (NODE 1 TO NODE 4) 
IS A CRITICAL EVENT. 
EXPECTED QURATION: 4, 3:33 
STANDARD DEVIATION: 1447 
START Nit LATER THEN: 0 
MUST BE COMPLETED BY: 4.- 


i 
it 

£04 
on 
ear! 
Fane 
Sas! 
hear 
_t 
ear 
_! 
—y 


ACTIVITY 4 (NODE = Tao NODE 3) 
Is A NON-CRITICAL EVENT. 
EXPECTED DURATION: 3. 333 
STANDARD DEVIATION: 447 
EARLY START? 2.147 

LATE START? 3.35 


EARLY FINISH: 3.5 
LATE FINISH: 4,832 
SLACK TIME: 1,333 


aekd CRED EUS CHESS CONES GEUED GEEEe GEeee Ghene Gone GEO CREED Goete GEERT GEUUT GEES GEbED GEad> CUERD GEEDO GEES GOCED GEUEE GEtES GEDSD GEES GEES GEDED GUESS Ets CEES Gree SEEDY ETD GoUED CEE eETD eneTE atnse 


ACTIVITY = (NODE 3 TO NODE 4) 
IS A NON-CRITICAL EVENT. 
EXFECTED DURATION: © 
STANDARD DEVIATION: © 

EARLY START? 3.147 

LATE START? 4.25 

EARLY FINISH: He LG? 

LATE FINISH: 4.25 

SLACK TIME: 3,082 


ALTIVITY & (NODE 4 TO NODE 4) 
I= A CRITICAL EVENT. 
EXPECTED DURATION: 1.717 


PROGRAM EVALUATION AND REVIEW TECHNIQUE (PERT) 


STANDARD DEVIATION: . 
START NO LATER THEN: 4. 
MUST BE COMPLETED BY: 4.3% 


ACTIVITY 7 (NODE = TO NODE 7) 
Is A NON-CRITICAL EVENT. 
EXPECTED DURATION: 2.25 
STANDARD DEVIATICN: .417 
EARLY START: 3.5 

LATE START: 4.833 

EARLY FINISH: 7.73 

LATE FINISH: ?.O0823 

SLACK TIME: 1.322 
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ACTIVITY 3 (NODE 4 TO NODE 7) 
Is A CRITICAL EVENT. 


EXPECTED DURATION: 2.533 
STANDARD DEVIATION: 1.147 
START NO LATER THEN: 4.25 


MUST BE COMPLETED BY: %. 0&2 


ACTIVITY » (NODE 7 Ta NODE &) 
IS A CRITICAL EVENT. 
EXFECTED DURATION: &. 
STANDARD DEVIATION: . 
=aTART NO LATER THEN: = 
MUST BE COMPLETED BY: 12.714 


THE CRITICAL FATH LENGTH I5 12.714 
PLUS OF MINUS .S84157125 

ENTER DESIRED COMPLETION TIME 
(3 TO END) F1ll. 714 

FROBABILITY OF COMPLETION WITH 
QURATION OF 11.716 15 127551952 
ENTER DESIRED COMPLETION TIME 

(Oo TO END) Fo 
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Practice Problems 


1. A project is charted on the precedence table below: 


Optimistic Most Likely Pessimistic 


Activity Time Time Time 


1 
mm OO OO YANN S WG LN 


oO 


COAIADASPHPWNYN 
We NN DA PWN Wee N 
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What is the critical path length? What is the probability of completing it within 30 weeks? 
Answer: Critical path length is 27.25 weeks. The probability of completing the project within 30 weeks 
is 0.980952281. 


2. Here is another precedence table: 


Optimistic Most Likely Pessimistic 
Time Time Time 


7 
1] 
13 
12 

8 
16 
14 

5 

3 


Activity 


PPP EPL TT 
J TOA Aan & RP WL LO 
m= GW RO ON RON WG 
ro HM COM~NAH 


What are the slack times for the non-critical activities in this network? How many days will the project 
take if we want to be at least 90% sure of completing it on time? 

Answer: Slack times: activity 1, 3 days; activity 3, 3 days; activity 5, 11 days; activity 7, 5 days; activity 
9, 5 days. The project will take 29.725 days at the 90.0022732% confidence level. 


Program Listing 


10 REM FROGRAM EVALUATION AND REVIEW TECHNIQUE (FERT) 

=0Q REM A()=START AND END NODES FOR EACH ACTIVITY 

20 REM SCJ=EARLY START TIMES FOR EACH ACTIVITY 

40 REM F()=LATE FINISH TIMES FOR EACH ACTIVITY 

“0 REM EC)=EXFPECTED DURATIONS AND VARIANCES OF ACTIVITIES 
40 DIM A°0100,2),5(0100),F(0100),E¢0¢100, 2) 

&=2 DEF FN R¢Z1) = INT (¢2Z1 *# 1000 + .3)) / 1000 

70 PRINT “ PROGRAM EVALUATION" 

SO FRINT " AND REVIEW TECHNIQUE" 

> FRINT 


PROGRAM EVALUATION AND REVIEW TECHNIQUE (PERT) 


100 
110 
120 
130 
140 
130 
140 
170 
120 
10 
OQ 
2aQ 
eg) 
240 
ey 
2&0 


we Q 


40 


E 


FCACN:;2)) = 
REM LOWPF TO 


PRINT 
PRINT 
INPLIT 
PRINT 
FOR I 
PRINT 
PRINT 
PRINT 
INPLIT 


IF A(I,2) < = 
IF A(I,2) 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 


" ENTER THE NUMBER OF" 


"ACTIVITIES IN THIS NETWORK "3 
N 

= 17TON 

amano ACTIVITY "$13 "----- " 
"ENTER START NODE, END NODE "3 
ACI,1),ACI.,=)° 


ACI,1) THEN 
“< N THEN 3&0 

" START NODE MUST BE NUMBERED LOWER" 

" THEN END NODE, AND END NODE MUST" 

"BE LESS THAN THE NUMBER OF ACTIVITIES." 
" Hee TRY ENTRY AGAIN ###"F 


et) 


GOTH Jao 


FRINT 
PRINT 
INPUT 


REM ECI,1) 


(I,1) 


REM ECI,2) 


NEXT 


REM LOWF TO FIND 


FOR I 
IF 


SCACI,2)) - = 
S(ACI,2)) = 


"ENTER THREE TIME ESTIMATES" 
"FOR THIS ACTIVITY (A.M,B) "3 
Al,M.&E 

IS THE EXPECTED DURATION 
= FN R(OCAL + M # 4+ B) / &) 
IS THE ACTIVITY VARIANCE 


= FN RCOCH - Al) 4 &) * & 
C) 
eo) 

I 


= 1 TOU N 
SCACI21)) + ECI,1) THEN 420 
S(ACI,1)) + ECI,1) 


NEXT I 


ECACN, =) ) 


FOR I = N TO 1 STEF - 1 

IF FCACI,1)) = O THEN 470 

IF FCACT,1)) > FCACI,2)) - ECI,>1) THEN 470 
GOTO &oo 
FCACT,1)) = FCACI,2)) - ECTI,1) 

NEXT I 
Y= QO 
Cc = O 
L=90 

Fak IT = 1 JO N 

REM CALCLILATE SLACK TIME IN &S1 
S1 = FCACI,2)) -—- S(ACI,1)) - ECI,1) 
S1o = INT (31 # 1E4 + .3) / I1E4 

PRINT ------ a ee ee ee ee eee 
FRINT 

FRINT “@QCTIVITY "sis" (NODE "sA¢I,1)3" To Noo 
PRINT "IS A "5 

IF S1 < = 0 THEN 4230 

FRINT "NON-"s 

PRINT “CRITICAL EVENT. " 

PRINT “EXPECTED DURATION: "sSE(I.1) 


EARLY START TIMES FOR NETWORE 


CALCULATE LATE FINISH TIMES FOR NETWORE 


"SACI22)35")" 
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440 IF 51 > 0 THEN 740 
470 PRINT “START NO LATER THEN: 


£70 "SSCACT,1)) 
420 PRINT "MUST BE CUMPLETED BY: 


20 FRINT “STANDARD DEVIATION: "$s SiR (ECI,2)) 


"SFCACI,2)) 
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64270 REM ACCUMULATE FATH LENGTH IN L. VARIANCE IN V 


700 IF L > = F(A(I,2)) THEN 720 

710 L = F(ACI+2)) 

720 V = V + E(I2) 

730 «GOTO 770 

740 PRINT “EARLY START? "?S(A(I>1)) 

750 PRINT "LATE START! "sF(AC(I,2)) - E(I+1) 
740 PRINT "EARLY FINISH: 
770 PRINT "LATE FINISH: 
780 PRINT "SLACK TIME: 

7970 NEXT I 

S00 PRINT 

810 PRINT "THE CRITICAL PATH LENGTH IS "$b 
S20 P = SHR (V) 

230 PRINT "PLUS OF MINUS "$F 

S40 PRINT “ENTER DESIRED COMPLETION TIME" 

S45 PRINT "(Go TO END) "5 

O INPUT D 

O IF D € = 0 THEN 1010 


"SFCACI,2)) 


"SS 


8 
— 


"SSE(ACI,1)) + EC(TI.1) 


REM CALCULATE Z-SCORE FOR DESIRED DURATION 


EQ. F.lee 


G 

7¢ 

BO Y= (I - L) / P 
a90 REM CALCULATE CUMULATIVE AREA UNDER NORMAL DISTRIBUTION 
900 REM REF: SOME COMMON BASIC PROGRAMS, 3RD 
910 R = EXP ( - (Y¥ * 2) / 2) / 2.5066282744 
920 Z = Y 
930 Y= 1 / (1 + .33247 # ABE (Y)) 
740 T= 1 - R * (.4361834 # Y - .1201474 * Y 
950 IF Z > = @ THEN 970 
960 T= 1 - T 
270 PRINT "PROBABILITY OF COMPLETICN WITH" 
980 PRINT "DURATION OF "srs" IS "sT 
290 PRINT 

1000 GOTO S40 


1010 END 
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Transportation Algorithm 


This program allows you to allocate a resource from multiple sources of supply to multiple destinations 
in the most cost-efficient way. The resource can be anything such as manufactured goods, personnel, 
and so forth. Linear programming can be used to solve this type of problem, but here you do not need to 
convert costs into an objective function, nor do you need to express data as coefficients in a series of 
linear equations. 

To use this program, you will need to know how many sources of supply are available, as well as the 
supply capacity for each source. The number of demand destinations, as well as their exact demand for 
the resource, are also needed. Finally, you need to know the cost of transporting the resource from each 
source to each destination. The program will ask you for all of this information when you run it, so be 
sure to have it organized before entering it into the computer. 

If available supply does not equal prevailing demand, the program automatically assigns the difference 
toa dummy source (supply less than demand) or dummy destination (supply greater than demand). 
Each assignment of the resource, its transportation cost per unit and its total assignment cost, print out 
at the end of the program. If dummy variables exist in a given problem, these assignments are printed 
out for your information. 


Program Notes 


This program allows for ten sources and ten destinations. If you want to change this to another 
maximum, modify lines 20 and 30 as follows: 


20 DIM S(I,2), DGJ,2), S1Q_ + J,2), CU,J), AG,J), Y(X,2), M(3) 
30 DIM R1(1), K1Q) 


Replace the expression I with the maximum number of sources, and replace J with the maximum 
number of destinations. Replace X with the maximum number of sources plus the maximum number of 
destinations minus one. 

You may want to change the program to receive data through DATA statements, rather than INPUT 
statements. If so, modify the program as shown in the ‘“‘Option’”’ section. 


Example 


Smiling Jack owns an organic crop dusting operation. He has three planes which have capacities for 65, 
150, and 80 gallons of insecticide each. Tomorrow, four farms need dusting. Jack calculates that, based 
on the sizes of the fields, they will need 100, 45, 90, and 60 gallons for the fields, respectively. Since each 
plane has a different capacity, and since the fields are in four different counties, Jack estimates the costs 
as follows for each gallon of insecticide: For plane 1 to field 1, 0.05; to field 2, 0.12; to field 3, 0.08; to 
field 4, 0.11. For plane 2 to field 1, 0.04; to field 2, 0.03; to field 3, 0.06; to field 4, 0.04. For plane 3 to 
field 1, 0.09; to field 2, 0.14; to field 3, 0.13; to field 4, 0.18. How does Jack enter this information, what 
are the assignments for tomorrow, and what is the total transportation cost? 

Answer: The optimal assignments are: Plane 1 to field 1, where it will spray 20 gallons, and on to field 
3 where it will spray 45 gallons. Plane 2 goes to field 2 first, spraying 45 gallons, then proceeds to field 3, 
where it uses 45 gallons of insecticide. Finally, Plane 2 goes on to field 4, where it uses the last 60 gallons 
of spray. Plane 3 goes to field 1 to complete the job which Plane 1 did partially. The total cost, based on 
those entered, is estimated at $18.25. 
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TRANSFORTATION ALGORITHM 


NUMBER OF SOURCES FS 

NUMBER OF DESTINATIONS Y4 
CAFACITY FOR SOURCE 1 Pan 
MAPACITY FOR SOURCE 2 2130 
MAPACITY FOR SOURITE cs Yao 
DEMAND FROM DESTINATION 1 F100 
DEMAND FROM DESTINATION 2 Y4a 
QEMAND FROM DESTINATION & eo 
DEMAND FROM QESTINATION 4 Yéo 
TRANSPORTATION Costs: 

FROM SOURCE TO DESTINATION 
FROM SOURCE TO DESTINATION 
FROM SOURCE TO DESTINATION 
FROM SOURCE TO DESTINATION 
FROM SOURCE TO QESTINAT ION 
FROM SOURCE TO DESTINATION 
FROM SOURCE TO DESTINATION 3 ¥.04 
FROM SOURCE Tu DESTINATION 
FROM SCOURICE To DES TINAT ICN 
FROM SOURCE 3 To DESTINATION 
FROM SOURCE os TO DESTINATION 
FROM SOURCE Ss To DESTINATION - 


rho ba Pah hae ee ee 
Rae fe oo Po 

3 

— 


fi pp B 
m 


& 
ae m4) 
pt 
Bie 


SQURIE DEST # UNITS COST TOTAL Cosy 
1 1 ZO 27 I 

SOURCE DEST # UNITS Cost TOTAL Cosy 
j er 4 O88 8, & 


SOURCE DEST # UNITS fost TOTAL Const 
a = 4m 20 1.2 
SOURCE DEST # UNITS CosT TOTAL Cost 
er 4. e O4 = " 7 


SOURCE DEST # UNITS GOST TOTAL COST 
2 4 40 04 2.4 
SOURCE DEST # UNITS COST TOTAL CosT 


nt 1 mO Ov Pai 


TOTAL COosT OF SOLUTION: 26. 25 


no YOU WANT TO RE-RUN THIS 
PROGRAM WITH NEW DATA (Y/N) tN 


Practice Problems 


1. The Skinheads Motorcycle Enthusiasts Society has three chapters in the state, and three imminent 
social engagements with competing clubs. Based on intelligence reports, the Skinheads know that they 
will encounter 75, 19, and 22 people respectively. Their three chapters have 35, 20, and 61 members. 
The mileage from chapter 1 to location 1 is 35 miles; to location 2, 80 miles; and to location 3, 60 miles. 
From chapter 2 to location 1, the distance is 90 miles; to location 2, 40 miles; and to location 3, 55 miles. 
From chapter 3 to location 1, the distance is 50 miles; to location 2, 28 miles; and to location 3, 65 miles. 

How should people be assigned? How far, in miles, will everyone in the club have traveled to reach 
the destinations? 
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Answer: 35 persons from chapter | to location 1; 20 people from chapter 2 to location 3; 40 people 
from chapter 3 to location 1; 19 people from chapter 3 to location 2, and two from chapter 3 to location 3. 
The total miles traveled (assuming one person per bike): 4,987. 


2. Given the following table, what is the optimal transportation mix? How much does it cost? 


Weekly Weekly 
Project Demand Plant Capacity 
A 170 J 130 
B 250 K 200 
C 100 L 190 
Costs: 
From ToA ToB ToC 
J $2 $ 5 $5 
K 9 13 9 
L 2 4 6 


Answer: 70 units from Plant J to Project Site A; 60 units from Plant J to Project B; 100 units from 
Plant K to Project A; 100 units from Plant K to Project C; and 190 units from Plant L to Project B. 


Program Listing 


10 REM TRANSPORTATION ALGORITHM 

2O DIM 3(10,;2),00190.,2),51(020,2),0010,10) 
20 DIM AC10,10),YC17.,2).M03),R1010),E1¢010) 
40 FRINT "TRANSPORTATION ALGORITHM" 

20 FRINT 

20 FRINT “NUMBER CF SOURCES "3 

70 INFUT S23 

sO IF Ss2 <= 1 THEN 40 

70 FRINT "NUMBER OF DESTINATIONS "35 

100 INPUT Dl 

110 IF D1 <= 1 THEN ?0O 

120 REM ENTER SUPPLY CAPACITY FOR EACH SOURCE 
130 Tl = 0 

140 FOR R= 1 To Se 

120 PRINT "CAPACITY FOR SOURCE "sks" "3 
140 INFUT S(R,1) 

170 S(R,2) = SCR,1) 

1320 Ti = T1 + S(R,1) 

170 NEXT R 

200 TS = GQ 

210 REM READ DATA LIST OF DEMAND FROM 
215 REM EACH DESTINATION 

220 FOR R = 1 To Dl 

230 PRINT "DEMAND FROM DESTINATION "sks" "3 
240 INFUT OCR, 1) 

S50 DOCR,2) = OCR 1) 

260 Ts = T2 + DCR. 1) 

=70 NEXT R 

ZO REM Looe TO READ TRANSPORTATION Costs 
270 PRINT “TRANSPORTATION Costs: " 

200 FOR KR = 1 Ta Sz 

210 REM INITIALIZE ELEMENTS F si¢) ARRAY 
320 S1(R,1) = 0 
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m0 S1iCRK.,2) = 0 

340 FOR KF = 1 Ta Dl 

245 ACRE) = O 

2230 PRINT “FROM SOURCE "sk3" TO DESTINATION "sks" "3 

340 INFUT CCR,K) 

370 IF CCR.E) < Oo THEN 330 

Sa30 NEXT EK 

2970  $WEXT R 

400 REM THE MATRIX HAS BEEN ENTERED--START FIRST SOLUTION PHASE 

410 30 = Oo 

470 710 = 0 

430 IF Tl s+ = Tz THEN 480 

440 REM SUPPLY MUST EGUAL DEMAND: SET UF DUMMY ROWS & COLUMNS 
Tz - Ti1 

Tz - Til 


1 ha Po 
+ 
_ 
N 
hou 


b 
De 
ric to 


475 GOTO 2310 

450 IF T2 = T1 THEN 310 

490 O(D1 + 1,1) = Til - Te 
200 DO¢CD1 1,2) = T1 - Tz 
205 DO = 


“10 O2 


oe + 


a) 
be. 
— 
st 
i 


a0 8 8=REM START SOLUTICN WITH NORTHWEST CORNER RULE 

40 FOR R = 1 Ta S22 + 50 

S30 REM IF SUPPLY AT ROW R EXHAUSTED, MOVE TO NEXT SOURCE 
S60 IF S(R,2) = © THEN 770 

=70 REM ALLOCATE SUPLY To DEMAND 

Ped 0 FOR KE = 1 To G1 + Do 

—70 REM IF DESTINATION K FILLED. INCREMENT COLUMN INDEX 
£00 IF D(K,.2) = 0 THEN 740 

£10 IF S(R»2) = O THEN 740 

420 IF S(R,2) < DOCK,.2) THEN 4670 

£30 REM SET UP STONE SOUARE IF DEMAND<=SUPPLY 

£40 ACRE) = DOCK, 2) 

£50 S¢R,2) = S(R,2) - OCK.2) 

£40 D(K,2) = 0 
&7O GUT 720 
650 REM SET UF STONE SGUARE IF DEMAND > SLIFFLY 
490 A(R, E) = S(R.2) 

7OO DOCKS) = D(K,2) - SCR. =) 

710 S(R.2) = 

720 D2 = De + 1 

730 TS = TS + (ACR, KR) # CCR,E)) 
740 51¢(02,1) = R 
720 Si¢0S,2) = Kk 

7490 NEXT E 

770 NEXT R 

730 REM CHECK SOLUTION FOR FIRST-STAGE DEGENERACY 
770 IF [D2 = S232 + 50 + Di + 00 — 1 THEN 1140 

S00 REM SOLVE DEGENERATE SOLUTION 

“10 R= 
ea 
Pel w 


S40 


O 


™ 
—_ 


_, 
—_ 


Le | 
+ 
=~ 
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“200 0 i Oo oe 


“9 1 SQ Of 


1000 
1010 
1020 


L020 
1040 
LTOeO 
1035 
1040 
1070 
1OeO0 
1LO7dD 
1100 
1110 
1120 
11:30 
1140 
1120 
1140 
1170 
1150 
1170 
1200 
1210 
1220 
1230 
1240 
12350 
1240 
1270 
1250 
1270 
1200 
1310 


Ai, 
—_ 


3 


ft fee fed, for fee eet fe 
i 2 64 03 03 03 


Noe of pf G2 be 


S 


rR = 


IF ACS1(1I,1),51¢01,2)) 
IF ACS1ICI,1),51¢01,2)) 
S1¢T,1) + 1 

S1¢1I.2) 


GOTO 1030 
- DS + DO THEN 340 


IF I 
REM 


IF 


IF KE 
bE: 


E 
REM 


Fk 
O14, 


NEXT 
S1¢MO,1) 
S1(MO,2) 


IF R & 
IF R +E 
1] 
S1lcI 


a 1,2) 


GOTO 1O0O 


+ 1 
GOTTA 1000 
- 1 


INSERT A NEW 


D2 


b 


ARE ZERC, 
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QOCS1¢I,2)21) THEN 870 


> &¢51¢01,1),1) THEN 


CC) 


", il 


THE MATRIX IS NOT DEGENERATE 


O THEN 1140 


122) 


= K 


T 


+ [210 THEN 


= 


HEN #40 


PIO 
TONE SHUARE IN THE SOLUTION 


* S1¢1,2) THEN 1030 
-~ 4 


1 


Y(TI,1) 


¥(I>2) 


as 


[i 


Ce J 
os | a 
? % 


o; 
baad 


+ 


GOTO 7vO 
CALCULATE REM VALLES 
To Dl + FO 


REM 
FUR 


E1i¢T) 


I 


NEXT I 
FoR I 


Ri¢cr) 


NEXT I 


RiCSi¢i.,1)) 
(S1C1,2)) 


Eo 
R 


Th H OH OW Ul 


MC1) 


2 7 th 


1 


~ fs 


®) 


REM FIND 


2+ 


=, 
aa 


> 1 
= 


1 


9E4 


Ti 


VE4 


I,1) 
) = 


1 


& me 
eo! aioe 


C ¢ 


Tu I 


+ 


1¢1 


> <= > 
)= - 
Ccsi ci 


I: ¢ 


S11 


THEN 12550 
+ [0 THEN 1240 
+ 50 THEN 1240 


+ 1 STEF 


1 


(Io- 1,1) 
(I1o—- 1.2) 


i) 


»1),51¢1,2)) 


- YE4 THEN 1300 

YE4 THEN 1:32:30 

21),51¢01,2)) —- RICS1(I,1)) 
- YE4 THEN 1:330 

»>1).,51¢01,2)) - FiCS1(I,2)) 


AN ELEMENT WITH THE LOWEST INDEX 
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Lao 
1400 
1410 
1420 
14730 
1440 
1420 
1440 
1470 
14580 
1470 
1300 
1210 
L320 
Lasgo 
1240 
) abel 
1340 
1270 
L275 
1520 
LS?O 
1400 
1210 
L420 
14:30 
1640 
14350 
1440 
1470 
14380 
14.70 
1700 
1710 
1720 
1730 
1740 
1750 
1740 
1770 
1780 
1770 
1800 
Le10 
LTeazo 
1 eS hoot 


ese” clince “oe 


LE30 
1340 
1250 
1240 
1370 
1E80 
1e70 
1700 
1v1iO 


Fok R 
FoR KF 
IF R «= 
IF koa 
| = 
GOTl 


IF M¢1 


REM FIND 


Y(4>1) 

¥(1+2) 

a= 1 
IF M(2 


REM MO=CURRENT ROW TO 
REM Mi=START COLUMN TiO 
Y¥ (tts 1) 


Mo 
Mi = Jj 
REM 
e) 


IF o < 
FRINT 
GOTO 


I + 1 
1470 


CCR) 


) 


) 


START ROW 


I+ il 
S1CI,1) & 
SiCI,1) «= 
S1i¢I,2) & 
IF I <. Oe 


“MATRIX 
2410 
REM AT THIS FOINT; 
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170 Sa + 
1 7TO D1 + 
~ S1¢0:1) 
~ S1¢I,2) 


0 
jat®) 
THEN 1420 
THEN 1420 


“ ICR2E) - RICR) 


~ RICR) 


- FICE) THEN 1470 
-~ RICK) 


> = QO THEN 2770 

A CLOSED PATH FROM 
MCs) 

MC) 


SHUARE AT ROW RR, CoOL. F 


= S52 + 50 THEN 1760 


SEARCH ONS 
SEARCH CN 


SEARCH 


MOQ THEN 1470 

MO THEN 1440 

M1 THEN 1720 
THEN 1420 

1 THEN 1700 
DEGENERATE" 


NO ROW NETGHRBORS EXIST 


GOTO Leno 


REM MAKE 


O 


xO 


IF M1 


reo 
— 


SURE VCI) ITS NOT ALREADY ON THE CLOSED FATH 
1 Ta & 
> ¥CJ421) THEN 1780 


> Y¥C.le2) THEN 1780 


O THEN 1evo 


SiCI21) + 1 


“= D1 + DO THEN 1440 


REM ROW SEARCH FAILED: 


REM 


- 
PA 
Y (ity 1) 
¥ (it, 2) 


(1 tho 


BOTO 


Y¥ Ct, 1) 
¥ (Gls 2) 


SET NEXT 
¥ (its 2) 
Y Cit, 1) 


aan 


COORDINATES FOR COLUMN SEARCH 


+ J 
© 


e) 


ZOQQ 
Gao + 1 


$1(1,1) 
S1(122) 
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8 
a 
oly 
Le 


ft “4 “£1 a an ts - 
INR O Bisa i 
- ct = my | am 


o, “£1 


OO I el a oe on ee oe ee 
ti 
— 


O30 
O40 
ZOO 
LOD 


S040 


2070 


ONO 
2070 


2100 
2110 
2120 
2130 
2135 
2140 
210 
2140 
2170 
2180 
21l?O 
S200 
2210 
2220 
20 
2240 
220 
22G&O 
wat /O 
22itO 
Poot ban 
22VO 
S200 


2310 


a) 


ay 
—_ 


my 
— 


Ket Oo ee Os ed ed 
De) 


0 No 
. 


Piha ba bo bo ba a Pa ba 
i, 


oy 
—_ 


“400 
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IF @ <= = 2 THEN 1730 
REM IF FATH CLOSES ON A ROW SEARCH, 
REM EXIT SEARCH ROUTINE 
IF ¥Y¥(H,2) = MCs) THEN 2240 
M1 = ¥(it,2) + 1 
REM COLUMN SEARCH AREA 
REM P=COLUMN NUMBER To 
REM F1i=STARTING ROW FOR 
= ¥Y(nl,2) 


SEARICH WIN 
SEARCH 


St | 
S1(E,1) «4 
SlCK,2) = F THEN 
IF BE < DS THEN 2010 
REM COLUMN SEARCH FAILURES 

SET NEW COMROINATES FOR ROW SEARCH 
¥Y (ti, 1) 
Y(ti,2) + I 
Y(tt, 1) Q 
Y(t, 2) O 
m- J 

GoTo 1410 
XO = QO 

REM LOOELIF ROUTINE: 

REM CHECE FOR ALREADY-USED 
FoR J = 1 TO t 

IF S1¢(K,1) < & Y¥C¢.I21) THEN 
IF S1¢(K.2) © & Y.l.2) THEN 
xO = ] 

NEXT 

IF XO = © THEN 22350 
Fil = Si¢K,1) + 1 

IF Fl 2 = Se + 50 
GOTO 2oOeo 

REM A UNTOWE STONE 
REM ADD 
who + I 
Y(lH,1) = 
Yt, 2) = S1(K.2) 

REM IF PATH CLOSES ON COLUMN 
REM EXIT SEARCH ROUTINE 

IF Yt(Gl.1) = MCS) THEN 2240 
Fil Y(t, 1) + 1 
MoO Y(tt,1) 
Mi Y(,2) + 1 

GOTO 1410 
REM FINED 


Fl THEN 2040 


2120 


Lo= 


STONE SHUARE 


2150 


210 


THEN 2040 


SRUARE WAS 
IT TO THE CLOSED PATH 


FinLlino--— 
ARRAY. 
io= 


S1i¢K.1) 


SEARCH, 


LOWEST-ALLOCATION STONE 

REM SBUARE ON CLOSED FATH 
XO = ACY¥Y(2.1),YC2,2)) 

FOR k= 4 TO STEP & 

IF XO 2 = ACYCR.1).,Y(R.22)) THEN 2270 
XO = ACYCR21),Y(R22)) 

NEXT EF 


REM ALTERNATELY ADD & SUBTRACT XO 


100 


“410 
2420 
2420 
2435 
2440 
2430 
2440 
2470 
S4eo 
24azvo 
200 
2ald 
als 
weet 
2asO 


2540 


ht) 
GO 
2/0 
ote) 
270 


2400 
210 
2420 
ZOO 
2640 
2645 
or aoe] 
E40 
whl 
24/0 
EEO 
Zbl 
700 
2710 
27 2Q 
2730 
2740 
270 
27EO 
277Q 
2d7S 
S720 


2770 
< He C) {) 


S10 
Deo) 
SEV 
we4ag 
ao4e 
et! =) 
SEA0 
S342 
2870 
Sao 
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- = 1] To tf 
KO = KF / 2 
IF FO = INT (FO) THEN 
ACY(E,.1),Y(K.,2)) = 
GOTO SAO 
ACY(E,1),Y(E22)) = ACYCK,1),YCE,2)) 
IF ACY(E,1),Y(ERE22)) > 0 THEN 2430 
REM DELETE ANY SQUARES WITH A ZERO ALLOCATION 
I = Oo 
F + 1 
IF Fol, MATRIX WILL BE 
IF SGUARE IS DELETED 
- 1 THEN 2430 


2440 
ACYC(R.1),YCR,2)) + XO 


-~ XO 


DEGENERATE 
SEIF IT 


+ 

(T+1) <<  & YCRK.1) THEN 2230 
( - ¥(RK22) THEN 2330 
FoR 
S11) 
Si (ts 2) 
NEXT 
S1¢(0e.,1) O 
S1 (DS, 2) 
Ne = fe - 1 

NEXT FE 

REM INSERT NEW STONE SQUARE FROM 
REM FIRST ELEMENT OF YO) 

I = 0 

I = — + 1 

IF I = D2 THEN 2700 

IF Y¢1,1) 2 S1¢1I.,1) THEN 
IF ¥Y¢(1,1) <= SiciI.,1) THEN 
IF ¥(1.,2) + S1¢I,2) THEN 
FOR wt = De - j 
Sl.) +4 1,1) = & 
SiC. + 1,2) = Sl¢d.2) 

NEXT 
S1i¢iI.,.1) Y(1,1) 
S1iCI,=) Y(1,2) 
ie = [fs + |] 

REM END OF RE-ALLOCATICN; 

REM REITERATE MODI CHECK 

GOTO 1140 

REM DISPLAY RESULTS AND COST OF 
FRINT 
IF ftO + 
FRINT 
IF DO 
FRINT 


+ +t 


2440 
2700 
2440 


SOLUTION 


20 = O THEN 2570 

"### UNBALANCED SOLUTION 
= © THEN 2830 
"EXCESS SUPPLY (¢ 
FRINT "ASSIGNED Ta DESTINATION 
IF 30 = 0 THEN 2270 

FRINT "EXCESS DEMAND ("sa(s2 + 
PRINT “ASSIGNED To SOURCE "5 s2 
XO = O 


FOR I = 


HHH" 


"SOCO1 + G0,1)35")" 


"$01 + DO 


SO,1)3")" 
+ 50 


1 TO DS 
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2570 PRINT "SOURCE DEST # UNITS cost TOTAL cost" 

2700 PRINT S1(1,1)3 TABC S)351¢1,2)3 TABC 13)3A051(1,1),5101,2))3 
2703 PRINT TABC 21)3C(05101,1),51¢0¢1,2))3 TARBC 24) 

2F1O J = O¢CS107T,1),51¢012-2)) # ACSICI,1),51¢01,2)) 

2720 IF wt > O THEN 2950 


2730 PRINT "DUMMY" 

2’4O GOTO 2970 

S750 XO = XO + . 

2760 PRINT 

2770 MEXT I 

2730 FRINT 

2770 PRINT "TOTAL COST OF SOLUTION? "3 XO 


3000 PRINT 

2010 PRINT 

3020 PRINT "DO You WANT TO RE-RUN THIS" 
S020 PRINT “PROGRAM WITH NEW DATA (Y/N) "3 
2040 INFUT XO 

3020 IF XO$ = "¥" THEN SO 

2060 END 


Option 


If you want to avoid using INPUT statements for data entry, you can change the program to read input 
from DATA statements. This is especially useful if you intend to enter a large transportation problem, or 
if you want to run the program repeatedly with slightly different data without reentering the supply, 
demand and cost figures. Modify the statements below to allow for this feature. 


151 REM THIS DATA SHOWN TO SOLVE PROBLEM #1. 
152 REM PUT YOUR SUPPLY DATA HERE. 

iS DATA 45.150,80 

140 READ S(R.1) 

145 PRINT S(R, 1) 

170 BCR.1) = S(R1) 

iso Ti = Ti + SCR.1) 

170 NEXT R 

200 TH = 0 

210 REM READ DATA LIST OF DEMAND FROM 
215 REM EACH DESTINATION 

200 FOR R = 1 TO Dd 

230 PRINT "DEMAND FROM DESTINATION "sR" "3 
251 REM PUT DEMAND DATA HERE. 

222 DATA 100,45, 70,40 

240 READ DR, 1) 

245 PRINT [CR 1) 

S50 DCR, 2) = DCR. 1) 

240 T2 = TH + DCR 1) 

270 NEXT R 

220 REM LOOP TO READ TRANSFORTION COSTS 
290 PRINT “TRANSPORTATION COSTS: " 

200 FOR R= 4 TO Se 

210 REM INITIALIZE ELEMENTS F S10) ARRAY 
320 S1(R,1) = 0 

230 S1CR:2) Q 
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340 FOR BE = 1 TO D4 

250 PRINT "FROM SOURCE "ski" TO DESTINATION "sks" "s 

351 REM FUT TRANSPORTATION COST DATA HERE. 

S52 DATA  .O5..12>.08%..117.04,.03,.062.04,.0%).14..135).18 
340 READ CRs) 

345 PRINT CORE) 

60 NEXT E 

390 NEXT R 


Also delete lines 2980 through 3060. 


References 


Chase, Richard B., and Aquilano, Nicholas J. Production and Operations Management. Homewood, IIl.: 
Richard D. Irwin, Inc., 1977. 


Levin, Richard I., and Kirkpatrick, Charles A. Quantitative Approaches to Management (3rd ed.). New 
York: McGraw-Hill, 1975. 


103 


Swedish Machine (Queuing Theory) 


This is the classic problem where you have X repairmen servicing Y machines. The machines are 
Statistically identical. Their times-to-failure follow the exponential law, characterized by the mean time- 
to-failure. The repairmen are also statistically identical; their repair completion times follow the 
exponential law and are characterized by its expected value. All elements are mutually independent. 

This program is especially useful in that it can provide a cash flow analysis that can help project the 
feasibility of a particular machines-to-repairmen ratio, given the repairmen’s wages, machine revenue, 
and overhead costs. 

To use the program, enter the number of machines, the mean time-to-failure for a machine, the 
number of repairmen, and the mean time to repair a machine. You may use any time unit base you wish, 
as long as you use the same time units throughout the program. A variety of system characteristics are 
output. If you choose to obtain a cash flow analysis, you must also enter the cost for one repairman per 
unit of time, the cost of possessing a machine (overhead) per unit of time, and the amount of revenue 
produced by a machine per unit of time. You may use any monetary unit you wish (pennies, dollars, 
thousands of dollars, pesos, whatever). 


Ace Laundromat has a total of 50 machines operating throughout the city. The machines have a mean 
time-to-failure of 300 hours, and there are currently three repairmen. Each repairman requires 24 hours 
to repair a machine. At any time, how many machines can be expected to be operating? How many 
machines are being repaired? How many are waiting to be repaired? What is the mean down time per 
machine? How many repairmen are idle? Repairmen cost $5.25 per hour (including fringe benefits, and 
so forth). Cost of possessing a machine is the overhead involved, such as lease or purchase payments, 
insurance payments, pro-rated administrative expenses, depreciation expense, and so forth. In this 
example the cost of possessing a machine is $36.00 per month, or $0.05 per hour. What cash flow do the 
machines generate if they each produce revenues of $0.50 per hour? 

Answer: 37 machines can be expected to be operational at any time, three are being repaired, and ten 
are waiting to be repaired. The mean down time per machine is about 105 hours. The 50 machines will 
produce an average revenue of $0.268843 per hour. 


SWEDISH MACHINE 


INPUT THE NUMBER UF MACHINES: 

IVOUNT MUST EXCEED ONE. “Pao 

INFLUT MEAN TIME-TO-FATLURE 

FOR A MACHINE 300 

INPUT NUMBER OF REFAIRMEN ‘Yc 

INFUT MEAN REPAIR TIME (FER MACHINE) 
FOR A REFAIRMAN Y24 


THE SYSTEM IF SAIO To BE “IN STATE w- 
IF | MACHINES ARE IN A FATLED 
RMONOITION. THE STATIONARY FROBARILITY 
QNQSTRIBUTION COVER THE FOSSIBLE STATES, 
QO THRE 2O, AND OTHER CHARACTERISTICS 
MF INTEREST, FOLLOW, 
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STATE FROBA- NO, Ni. Ni. 
BILITY MACHINES MACHINES REFAITRMEN 
MFERATING WAITING IDOLE 
1. %643E-03 30 2 
fuiaeE-Os 4 
»OLI71 Ai 
-Q1¥7 47 
2 O44 1 4é 


amy 
Soe 
— 
8 8 
% 3 ( 


or 
—_— 
tot 


i pit ham 


eo OS4 345 4 44 
~O42645 2 
2 O44 42 
20347465 41 
a VEZ AQ 
» O41 
12 a Qb44 24 
Last 2046/7812 
14 a Qb4414 
12 O47 BE 
14 257507 
17 2S IS 
a 2047479 
1 2940515 


i ne 


i e®, 
oa 
s 


o 


a 
it 
“Sm woe Cp oo bao 


10 () 


(eh BOP Ste 
at 


2Q) ~OS3403 Q 17 O 
= | OBER 724 


"1 
hed { 
+ int 
ee =e 

" 8 
ee tt 
ma, om) 
‘——_ Ld 


aa eOLO721 
wes ~QL2471 
4 »Q1L1Liay he 21 Q 
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Tl CONTINUE, PRESS “RETURN”? 


SYSTEM CHARACTERISTICS 
NO, OF MACHINES = 30 
MEAN TIME-TO FAILURE FER 
MACHINE = 300 TIME UNITS 
NO. OF REPFAIRMENT = & 
MEAN REFAIR-TIME FER 
REPAIRMAN = 24 TIME WUNITS 
NO. OF MACHINES FER REPAIRMAN = 14. 444467 


PROBABILITY (SERVICE SYSTEM 

IS EMPTY) = 1. 7456-03 

PROBABILITY (NO MACHINES 

ARE WAITING FOR SERVICE) = .0447047487 


EXP. NC. OF MACHINES OPERATING 
= 37, 037405 
EXP. NO. OF INACTIVE MACHINES 
= ID, 940315 
EXP, NO. OF MACHINES IN WAITING LINE 
= 7, 7IOR 
EXP, NO. OF MACHINES IN @ NON-EMETY 
“WAITING LINE* = 10,449449 
MEAN DCWN-TIME FER 
MACHINE = 104,99291 TIME UNITS 
MEAN WAITING TIME FER 
MACHINE = S0,°9291 TIME UNITS 
EXP. NO. OF REPAIRMEN IDLE = .os40e5% 


TO CONTINUE, FRESS “RETURN ~ Y 

“ROEFFICTIENT OF Ltrs" FOR MACHINES = 
FRACTION OF TIME A MACHINE IS “OOWN” 
AS A CONSEGUENCE OF THE SYSTEM 
CHARACTERISTICS = . levis 


“IQERPOCTENT OF LOSS" FOR REPAIRMEN = 
FRACTION OF TIME A REPAIRMAN TS ILE 
AS A CUNSEGUENCE OF THE SYSTEM 
CHARACTERISTICS = ,OLeS28 


TYPE i FOR CASH FLOW ANALYSIS 

= TO HALT 
V1 
THIS ANALYSIS ASSUMES THAT REPAIRMEN 
ARE FAIO “A” MONETARY UNITS PER UNIT 
TIME: THAT THE FIXED CosT OF Fosse ssInG 
EACH MACHINE Is “6° MONETARY UNITS PER 
WNIT TIME, AND THAT A MACHINE, WHEN 
HIFERATING, IS CAPABLE OF FROOQUCING “0 
UNITS OF REVENUE FER UNIT TIME. 


INFUT THE REPAIRMAN-COST FER LINIT TIME: 


Ac = 75,25 
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INPUT THE FIXED CosT FER UNIT TIME 
“Re, OF FPOUSSESSING A MACHINE 


“Be os 2,08 


INFUT THE AMOUNT OF REVENUE A WORKING 
MACHINE PRODUCES, PER UNIT OF 
(QPERATING) TIME 

“te os Fa, S 

THE AVERAGE CASH FLOW GENERATED RY THE 
COMBINATION OF SO MACHINE (5) 
MAINTAINED BY = REFPAIRMEN 

[Is ,2605473 MONETARY UNITS, 

PER UNIT TIME. 


Practice Problem 


In the above example, suppose Ace invested $65.00 per machine to retrofit them with heavy duty 
motors, raising their mean times-to-failure to 305 hours. What cash flow will the machines produce? 
How much time must pass before Ace has recovered their $3,250.00 investment? 

Answer: If retrofit, the machines will produce an average revenue of $0.525136 per hour. The 
investment will be recovered within 18 months. 


Program Listing 


10 FRINT "SWEDISH MACHINE" 


1= DEF FN R(X) = INT (X # 1E6& + 1.5) ¢ 1E4 
=O REM ~—- (CHANGE DIMENSION OF EC) TO 
22 REM -- MAXIMUM NUMBER OF MACHINES + 1 


300 06DIM 6 @C1a0) 

40 PRINT 

a0 PRINT "INPUT THE NUMBER OF MACHINES: " 
= FRINT "COUNT MUST EXCEED ONE. "5 

£0 INPUT N 

79 PRINT "INFUT MEAN TIME-TO-FAILURE" 
7o PRINT "FOR A MACHINE "3 

20 INPUT Fil 

"0 F = 1 / Fil 

100 FRINT "INFUT NUMBER OF REFAIRMEN "5 
110 INFUT M 

120 PRINT "“INFUT MEAN REPAIR TIME (FER MACHINE)" 
Zo PRINT "FOR A REPAIRMAN "3 

130 INFUT Ril 

140 R= 1 /7 Ri 

120 PRINT 

140 REM -~ INITIALIZE VARIABLES 

170 FOR I. = 1 TON + 1 

120 HCL) = O 

ivQ NEXT I 

SOO C1) = I 

210 El = 0 


220 ES = 0 
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- LOWOF TO CALCULATE FROBABILITIES 
- FOR EACH MACHINE 


= 0 TO N - 1 
~-~ ER=MINGI+1,M) 


1 > M THEN 320 

1 

) = (N —- J) # F # OI + 1) 7 ES R 
HC - 2) 


230 ES = 0 
240 FO = O 
Zo 8 6REF 
Zoo = 6©6REM 
260 3 = C1) 
270 FOR J 
2eO REM 
=O EF = M 
200) IF ..l 
410 KEK = J 
320 Gh + 
330 S = & 
340 NEXT 
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e .% = «. =~ 
“St Lt ss irs 


~~ ~*~ = om 


Cot tes et eo bt 


= i 
— 
ce 
= 


nee 


— 


— 


(1) = 
GOT 
PRINT 
PRINT 
PRINT 
PRINT 
FRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
FRINT 
FoR wl 
= N 


om 
~~" 


_~ —~ 
awn Thu 


lt 
IF @1¢1) 


. 1 THEN s&O 
1 / 


rir 


240 ! 


"THE SYSTEM IF SAID TO BE “IN STATE wJ*" 
"IF J MACHINES ARE IN A FAILED" 
"CONDITION. THE STATIGNARY PROBABILITY" 
"DISTRIBUTION OVER THE POSSIBLE STATES," 
"QO THRU "Ne", AND OTHER CHARACTERISTICS" 
"OF INTEREST, FOLLOW. " 


"STATE FROBA- NU. 

" BILITY MACHINES 
" OPERATING 
= 1 7TON + 1 


NO. 
MACHINES 
WAITING 


NO." 
REFAIRMEN" 
IDLE" 


TARC 3)5 FN R¢GHO.I0)05 TABC Tad30s TAR 


s)3 1 
+ W # CI) 
+ JT # Cd) 
+ Oo # HOI) 


"TO CONTINUE, 
ZS 


PRESS “RETURN’"S 


TAR( & 
"NG. OF MACHINES = "s3N 

"MEAN TIME-TO FAILURE FER " 
"MACHINE = "sFis" TIME UNITS" 
"NO. OF REPAIRMENT = "3 FN R(M) 
"MEAN REPFAIR-TIME FER" 


ZA)EWS 


107 


mr OQ wy 0 


4 


Ame 
3.3 
—_ 


a, * Pi? eo o®, e &® = -. oo on 
4 ee LL at 
ey 
r) 
om, = a 


lpi et pe 


Cm 
t) 8 ‘ 
6 $ 


1O1s 
1020 
1020 
19040 
LOSO 
102 
LQO40 


1070 
1080 
1070 
1OvS 
1100 
1110 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
INFLIT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
FRINT 
FRINT 
PRINT 
PRINT 
INFLIT 
IF oi 
PRINT 
PRINT 


FRINT 
PRINT 
FRINT 
PRINT 
PRINT 


FRINT 
PRINT 
PRINT 
INPUT 
FRINT 
PRINT 
PRINT 
FRINT 
INPUT 
PRINT 
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"REPAIRMAN = "S$R13" TIME UNITS" 
"NC. CF MACHINES FER REPAIRMAN = 


"s FN RCN / M) 
"PROBABILITY (SERVICE SYSTEM" 

"IS EMPTY) = "$3 FN RCEC1)) 

"PROBABILITY (NO MACHINES" 


"ORE WAITING FOR SERVICE) = "SFO 


"EXP. NO. OF MACHINES OPERATING" 

TAB( 2O)3"= "3 FN R(ES) 

"EXP. NO. OF INACTIVE MACHINES" 

TAB(C 2O)3"= "3 FN RON - ES) 

"EXP. NO. OF MACHINES IN WAITING LINE" 

TAB(C 2O)3"= "$3 FN RCEI) 

"EXF. NOt. OF MACHINES IN A NON-EMPTY" 

"“WAITING LINE”"s TABC 20)3 FN RCE1 7 (1 —- FO)) 


"MEAN DOWN-TIME FER" 

"MACHINE = "3 FN RCCN - ES) # Fl / ES)S" 
"MEAN WAITING TIME FER" 

"MACHINE = “3 FN RCEL ®# Fl 7 E393" TIME UNITS" 
"EXF. NO. OF REFAIRMEN IDLE = "$s FN R(ES) 


TIME UNITS" 


"TO CONTINUE» 
Z$ 
"“COEFFICTENT OF LOSS” FOR MACHINES 
" FRACTION OF TIME A MACHINE [5 “DOWN " 
" AS A CONSEQUENCE OF THE SYSTEM" 

" CHARACTERISTICS = "$$ FN R(E1 / N) 


FRESS “RETURN? "5 


"“COEFFICIENT OF LOSS" FOR REPAIRMEN = " 
" FRACTION OF TIME A REPAIRMAN Is IDOLE" 
" AS A CONSEQUENCE OF THE SYSTEM" 

" CHARACTERISTICS = "5 FN RCES 7 M) 


"TYPE 1 FOR CASH FLOW ANALYSIS" 


" 2 TO HALT" 

ct 

= 2 THEN 1250 

"THIS ANALYSIS ASSUMES THAT REFAIRMEN " 
"ARE PAID “A* MONETARY UNITS PER WNIT" 


"TIME. THAT THE FIXED 
"EACH MACHINE IS “B° MONETARY UNITS FER" 
"LINTT TIME, AND THAT A MACHINE, WHEN" 

"MPERATING, [3S CAPABLE OF FROOUCING “Cr" 


COST OF POSSESSING" 


"UNITS OF REVENUE PER UNIT TIME," 

"INFLIT THE REFAIRMAN-COST PER UNIT TIME, " 
is A = TH] $ 

Pas 

"INPUT THE FIXED COST PER UNIT TIME" 
"Re, OF POSSESSING A MACHINE" 

7] “BO = a . 

B 
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1120 
1130 
1135 
1137 
1140 
1150 
1140 
1170 
1175 
LT1e0 
1190 
1200 
1210 
L220 
L230 
1240 


1250 


FRINT 
PRINT 
FRINT 
PRINT 
INFUT 
PRINT 


PRINT 
FRINT 
PRINT 


IF M = 


PRINT 


"INEUT THE AMOUNT OF REVENUE A WORKING" 
"MACHINE PRODUCES, PER UNIT OF" 
"CORPERATING) TIME" 


G9 as? gore we” — tla 
L_. 7 


L. 


m # ES - A#M- B#N 
"THE AVERAGE CASH FLOW GENERATED BY THE" 


"COMBINATION OF "SN3" MACHINECS) " 
"MAINTAINED BY "3M3" REPAIR": 

1 THEN 1220 

“MAN te 


GOAT Peso 


PRINT 
PRINT 
PRINT 
END 


i MEN ia 
"IS "3 FN R(LO$" MONETARY UNITS, " 
"PER UNIT TIME.” 
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Markov Analysis 


This program calculates the future changes, over time, in a given variable based on its current 
movement. Management scientists adopted this analysis, using it mostly as a simulation technique for 
analyzing competitors in the marketplace. Markov analysis has many other applications, however, as 
illustrated by the examples below. 

To use the program, first enter how many states of nature are under consideration. The second entry 
is optional. If you want to see changes occur over time from stage to stage, you must enter the current 
population proportion vector. If you are only interested in long-run steady-state equilibrium, the 
program will seed the vector with equal probabilities. The number of elements in this vector equals the 
States of nature. 

The program then asks you to enter each cell of the transition probabilities matrix (N*N, where N = 
states of nature). For each cell, enter a transition probability, ranging 0< =p< =1. The sum of the 
probabilities entered for each row should always add up to 1. Once you have entered the entire matrix, 
you have the option of looking at each future period or letting the computer calculate the transition 
matrix at equilibrium. 

The program displays the equilibrium vector, the period at which equilibrium was reached, and the 
first passage times for each state of nature. First passage times will not print for recurrent or null- 
recurrent states. 


Program Notes 


This program allows for a maximum of 12 states of nature. You can change this by modifying line 20 as 


follows: 20 DIM V1(), TAD, V2 


Replace I with your maximum (for example, 15, 20, or 25). 

If you have large matrices to enter, or if you want to repeatedly run this program with mostly the same 
data, you can modify the program to accept data through DATA statements, as shown in the ‘‘Option’’ 
section. 


Example 


Caffrey’s Hardware wants to analyze its accounts receivable in order to estimate its cash flow from credit 
customers. The company has three aging categories: current, 45-89 days, and 90-plus days past due. 
Customers in this last category are eventually written off as uncollectable accounts. 

The latest aging analysis shows that, for each dollar of accounts receivable outstanding, $0.60 is 
current, $0.33 is 45-89 days old, and $0.07 is 90-plus days old. Further analysis shows that accounts in 
the ‘‘current’’ category have a 38% chance of being paid in the next month, 45% of all current accounts 
will remain current, and 17% will be 45-89 days old. Accounts in the 45-89 days category stand a 65% 
chance of paying all back payments, a 25% chance of paying only the late installment, and a 5% chance of 
becoming 90-plus days overdue. Of the accounts in the 90-plus category, there is a 25% chance they will 
be paid and a 75% chance they will become bad debts. 

The paid and bad debt categories are ‘‘absorbing”’ states, in that the probability of a paid item 
remaining paid is assumed to be 100%. The same is true for bad debts. These are called absorbing states 
because all accounts outstanding now will eventually be paid up or written off. How much of accounts 
receivable will be collected? How much will be written off? 

On the printout below, the paid category and bad debt category have absorbed all outstanding debts. 
Caffrey can expect about 91% of his accounts to be paid, and 9% to be written off. 
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HtiW MANY STATES 


MF NATURE ‘o 


Is THE POPULATION FPROPORT TON 
VECTOR ENOWN (Y/N) FY 


ENTER 
ENTER 
ENTER 
ENTER 
ENTER 
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“PROBABILITIES 
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ENTER 
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ELEMENT 
ELEMENT 
ELEMENT 
ELEMENT 


ELEMENT 
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ELEMENT 
ELEMENT 
ELEMENT 
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ELEMENT 
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ELEMENT 
ELEMENT 
ELEMENT 
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ELEMENT 
ELEMENT 
ELEMENT 
ELEMENT 


ELEMENT 
ELEMENT 
ELEMENT 
ELEMENT 
ELEMENT 


IN Row 
IN ROW 
IN Raw 
IN ROW 
IN ROW 


IN ROW 
IN ROW 
IN ROW 
IN RoW 
IN ROW 


IN RaW 
IN RoW 
IN ROW 
IN ROW 
IN ROW 


1 
1 
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ba ba Ba pa bo 


ELEMENT 
ELEMENT 
ELEMENT 
ELEMENT 
ELEMENT 


COL LIMN 
COL LIMN 
COLUMN 
OL LIMN 
COL LIMN 


CILMI 
IL LIMN 
OIL LIMN 
COIL LIMN 
LLIN 


COL LIMN 
COL LIRIN 
CL LIMN 
COL LIMN 
COL LIMN 


mA ie i 


Ros id hy 


DO NOT ADD WF Ti 


IN ROW 
IN ROW 
IN ROW 
IN ROW 
IN RW 


IN ROW 
IN ROW 
IN RialW 
IN ROW 
IN ROW 


IN Few 
IN ROW 
IN ROW 
IN RoW 
IN ROW 


feb pH 


TT 


a Te) 


OO YOu WANT To OBSERVE 
FERIOO UNDER ANALYSIS (Y/N) FY 


PORULATION FPROFORT [ON 


VECTOR AT FERION 2 IS: 


» 44 


CCL IMM 
Ct LIM 
COL LUMN 
CO LIM 
COLUMN 


COL LIMN 
IL LIRIN 
IL LINN 
CL LIPIN 
Ci LIMN 
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IL LIPIN 
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COL LIMN 
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EACH 


THE ROW AGAIN. 
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4 20 
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VECTOR AT FERIOO & [ss 
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2 POO 
4.1E-O%> 
1. 3E-O> 
ZE--O4 
~OF741 


POPULATION FPROPORT DON 
VECTOR AT FERIOO 10 [35 
703 

ce LE-OS 

7E-O4 

LE-O4 

2074S 


POPULATION PROPORTION 
VECTOR AT FERRIC“ 11 Is: 
nw CDSE 

1,.1E-oO23 

AE-O4 

1E-04 

2 OF 4A 


POPULATION PROPORT ICN 
VECTOR AT PERION 12 1: 
7055 

6E~O4 

2E-04 

() 


a OA 


POPULATION PROFORT ICN 
VECTOR AT FERIOU i3 1s: 
POSS 

4E-04 

1E-04 

() 

09845 


POFULATION PROFORT LON 
VECTOR AT PERION 14 18: 
.FOS4 

SE-04 

1E-04 

©) 

0945 


FOPLULATION FROPORT ION 
VECTOR AT FERION 135 [5 
. FOF 

1E—-O4 

O 

() 
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VECTOR AT FERIOO 14 I 


ay 
- i 


POPULATION FPROFUORT ION 
VECTOR AT FERIOO 17 [5:5 
o FONE 

QO 

O 

) 

~OV4 


EGUILIBRIUM REACHED AT FERIOUL 17 
VECTOR AT EMUILIBRILIM: 


2 7OOS 


~OV4S 


no YOL! WANT TO RE-RUN THIS FROGRAM 
WITH DIFFERENT DATA (Y/N) * N 


Practice Problems 


1. A survey by Hanley, Ohio, city planners shows recent commuting trends. Citizens were polled to 
find out if they carpool, take the bus, or drive alone to and from work. Presently, 43% of commuters 
drive their cars alone, 30% carpool and 27% take the bus to work. The city wants to know how these 
patterns will change over the coming months in order to increase or decrease their bus fleet. The survey 
shows that 65% of those who drive alone will continue to do so. Twenty percent of this group said they 
would carpool, and 15% would take the bus if gas prices continue to rise. Twenty-five percent of 
carpoolers say that they find driving alone is preferable, and that they will switch back to it. Fifty-five 
percent of carpoolers say that they will continue to carpool, and the remaining 20% will switch to the bus. 

Twelve percent of bus riders will switch back to driving alone. Thirteen percent of bus riders say they 
will switch to carpooling, and 75% say they will continue to ride the bus. What will the commuting mix be 
six months from now? What will it look like at equilibrium? 

Answer: In the sixth month, 33.5% will be driving alone, 26.66% will be carpooling and 39.86% will be 
taking the bus. At equilibrium, 32.86% will be driving alone, 26.4% will be carpooling and 40.83% will be 
riding the bus. 


2. Rita’s Rent-A-Car competes with two other rental agencies at Manteca Airport. In the past month, 
Rita’s kept 85% of its customers from the previous month, lost 5% of its business to Competitor A, and 
lost 10% to Competitor B. Competitor A retained 90% of its customers while losing 10% to Competitor 
B. Competitor B retained 75% of its customers, while losing 15% to Competitor A, and 10% to Rita’s. 
What are the equilibrium market shares, assuming no known proportion vector? How long, in months, 
does it take for a customer to return to Rita’s to rent a car after having taken his/her business elsewhere? 

Answer: Equilibrium shares: Rita’s, 19.1%; Competitor A, 52.45%; Competitor B, 28.63%. On the 
average, it takes about 5.2356 months for a patron of either competitor to switch to Rita’s. 
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10 
20 
a0) 
4.) 
eC) 
AO 
70) 
m0) 
m2) 
100 
110 
120 
Lao 
1am 


140 


OO 
210 
waQ 
SO) 
240 
E50 
ZhiQ 
m7 
Bo 
oO 
SOQ 
10 


EOo 


N 


Fi 
ti 
Fi 
Fy 
R 
Cl 
FE 
fF 


\/ 


b. 
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EM MAREOY ANALYSIS 

IM V1012)0,7012,12),V2(012) 

EM YIC)=PORPULATION PROPORTION VECTOR 

EM TC) =TRANSITION FROBABILITIES MATRIX 

EM VeEQ)=SCRATCH FOR VECTOR ARRAY 

EFF FN R¢Z) = INT ¢(€¢€Z2 # 10000 + O,35)) 7 1O0O00O 
RINT "“MAREOY ANALYSIS" 

RINT 

=: (| 

PRINT “HOW MANY STATES OF NATURE "3 

INFUT 

FRINT 
FRINT "IS THE FOPULATION FROPORTION" 

PRINT "VECTOR ENOWN CY/N) "3 

INFUT && | 

IF AS = "VY" THEN 220 

IF At = > "N" THEN 130 

REM TF VECTOR UNENOWN, ASSIGN EQUAL 

REM PROBABILITIES To EACH STATE 

FOR IT = 1 To & 

W(I) = FN ROL #7 &) 

NEXT I 

GoTo Seo 

REM LOOe TO ENTER FOPLILATION FPROPORT IONS 

PRINT 

FoR J = 1 To s 

FRINT " ENTER VECTOR ELEMENT "“sIe" "35 
INFUT VicI) 

NEXT I 

REM ENTER TRANSITION MATRIX CI BY wt ARRAY) 

FFX INT 
FoR J 
= 0 
FOR wo = 1 Ta 
FRINT "ENTER 
INFUT TCt2.d) 


1 7a 


iy oir 


LEMENT IN ROW "Is" COLuhN 3 ts” 


. = Eo + TCD: 


NEXT ul 

IF FE = 1 THEN 410 

PRINT "-FROBABILITIES DO NOT ADD UF To 1.0-" 
FRINT " TRY ENTERING THE ROW AGAIN. " 
GOTH S1O 
FRINT 
NEXT I 
PRINT "Dl You WANT To OBSERVE EACH" 
PRINT "FPERIOO UNDER ANALYSIS (Y/N) "3 
INFUT At 

IF AS = "Y¥" THEN 480 

IF AS = & UN" THEN 430 
REM LOOP TO MULTIPLY VECTOR (V1) BY 
REM TRANSITION MATRIX ¢T) 

= N+ 1 

FOR I = ] Tul & 
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10 Vert) = 0 

aro FOR wf = 1 To &S 

S20 REM ANI MULTIPLIED COLUMNS To Ve ARRAY 
B4QO VEeOI) = VecqT) + FN ROVIiCd) # TOd,.0)) 

set) MEXT ul 

S40 NEXT f 

=70 REM SEIF PRINTING VECTOR IF NOT REQUESTED 
sQ 0 6d TF UAS UU UNY") UOTHEN 6420 

a? FRINT 

400 PRINT "“FORPULATION FROPORT ION" 

£10 PRINT "VECTOR AT FERIOO "sne" fsa" 

4£2°0 Ni = Oo 

4730 FOR IT = 1 To & 

440 IF @%$ =< > "Y" THEN 440 

450 FPRINT Vecr) 
440 [FF VecI) <= & V1I¢I) THEN 480 

&/7Q Nil = Ni + 1 

480 VICI) = Vecr) 

& 70 NEXT I 

YOO IF Ni =< 32 S&S THEN 4&0 

710 REM FRINT EQUILIBRIUM VECTOR VALUES 

720 PRINT 

720 FPRINT “EMUILIBRIUM REACHED AT FERTIOO "“sN 
740 PRINT "VECTOR AT EQUILIBRIUM: " 

7aQ FOR JT = 1 To s 

740 FPRINT FN ROVICD)) 

77/0 NEXT I 

70 FRINT 

770 REM PRINT TRANSITIONS NEEDED FOR 

S00 REM EACH STATE TO BE REOCCUPIED 

m1O FoR Io = 1 To & 

e2O IF Tcri,I) = 1 OR V1i¢T) <= = © THEN #40 
S40 FPRINT "FIRST PASSAGE--STATE "ss" " 
Sse PRINT FN RCL 7/7 VICI?) 

m40  WNEXT I 

270 FRINT “DO Youll WANT TO RE-RUN THIS PROGRAM" 
SSO FRINT "WITH OIFFERENT DATA (Y/N) "35 

s?7O FNFUT As 

700 IF ASB = "¥" THEN &o 

710 TF A® = > "N" THEN 870 

YO END 


Is 


Option 


If you plan on entering large matrices, or if you want to run this program repeatedly with the same data, 
you should use this option. The program will read input from DATA statements, rather than asking you 
to enter the population proportion vector and the transition probabilities matrix. Replace lines 170 
through 350 with the lines shown below. Also delete lines 870 through 910, and leave line 920 where it 
is. If you plan to re-run the program without entering the population proportion vector, you must delete 
lines 242 through 249 if they contain DATA statements for a population proportion vector from a 
previous run. 
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170 REM IF VECTOR LUNENOWN, ASSTON EGuUAL 

173 REM FROBABILITIES TO EACH STATE 

172 ©6REM IF UNENOWN, YOU MUST DELETE 

177 REM LINES 242-247 OR THE DATA WILL 

1724 REM BE OUT OF SEMUENCE. 

Wo FOR I = 1 Tu & 

WwO VICI)>) = FN RCI ¢/ 3) 

200 NEXT I 

210 GoTo 2ea 

2eO REM LOOP Th READ POPULATION FPROFORTIONS 

220 PRINT 

“40 FOR I = 1 Tuo ss 

“41 REM FUT FROPORTION VECTOR ELEMENTS HERE 

“42 DATA Oo nba eg te O79 0 

2a FRINT " VECTOR ELEMENT "ss": "3 
260 READ V1.) 

Zé FRINT V1i¢T) 

2/70 NEXT I 

20 REM READ TRANSITION MATRIX (I BY «tt ARRAY) 

270 PRINT 

200 FOR JT = 1] To & 

310 KF = O 

=270 POR ft = 1 To & 

scl = =FREM FLT TRANSITION FROBABILITIES MATRIX HERE 
a2 = DATA 1,9,0,0,0,.35,,.45,.17;0,0,), 465. ,25,0.,08.0 
a2t)|6|6oOATA ote ete 0 100.1 0,0,0,.,7520,0,0,0, 1 
220 PRINT " ELEMENT IN ROW "303" COLUMN" S " "5s" os 
340 READ TCI.) 

245 RINT TCI.) 

250 EO o= EF + TOT.) 
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Nonlinear Break-even Analysis 


This program computes the break-even point of a product using a nonlinear method which more closely 
reflects actual production situations than a linear method. It incorporates a “‘learning curve’’ for both 
costs and prices. This curve means that each time production or sales double, cumulative average costs 
or revenue per unit will increase or decrease by the amount of the curves. Zero curve values means no 
change occurs. When you enter different curve values for costs and prices, the program indicates the 
point of maximum gross profit. 

To use the program, enter the unit selling price, the selling price learning curve, the variable costs, the 
variable costs learning curve, and the fixed costs. Variable costs are those which can be directly ascribed 
to the production of each unit, such as raw material. Fixed costs, like rent and wages, generally do not 
vary with each unit produced. 


Acme Widget Supply is considering producing and marketing a new widget. New machines, employee 
training, and all other overhead costs associated with production of this widget total $10,000. Each unit 
produced requires $5.00 of raw materials, labor, machine depreciation, and so forth, but they will need 
proportionally more machines and personnel to produce more widgets, and will therefore use a 5% cost 
increase learning curve. The marketing department expects the selling price of $25.00 to decrease on a 
5% curve. What is the break-even point on the new widget? What is the maximum gross profit margin 
that Acme may realize? What are total costs and total revenue at maximum gross profit? 
Answer: Break-even will occur at 1,663 units. The maximum gross profit margin is 17.182%. Total 

costs and revenue at maximum gross profit are $74,134.00 and $89,514.00, respectively. 
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ENTER THE UNIT FRICE Yas 

ENTER THE UNIT PRICE EROSION RATE 
(NEGATIVE VALLIE MEANS REVENUE 
QECREASES AS SALES INCREASE) 7-3 


ENTER THE AMOUNT OF VARTABLE COSTS FER 


LINIT YS 
ENTER VARIABLE tCosTS LEARNING RATE 
(NEGATIVE VALUE MEANS COSTS DECREASE AS 


PRODUCTION DOUBLES) FS 


ENTER THE TOTAL AMOUNT OF FIXED 
RosTSs $F1LQ00o 


BREAKEVEN FOINT = 144: UNITS 
TOTAL REVENUE AT BREAFEVEN = $2401 


MAXIMUM GROSS PROFIT MARGIN AT 4884 
UNITS = 17,1827 


TOTAL REVENUE = $87514 
TOTAL COSTS = $7414 
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TOTAL FROFIT = $1 2350 


WOULG Youll LIKE TO RE-RUN THIS PROGRAM 
WITH NEW DATA CY/N) FN 


Practice Problems 


1. The selling price is $30.00, and revenue will decrease by 2.5% each time production doubles. 
Variable costs are $1.20 per unit, but cumulative average costs will increase by 8% when production 
quantities double. Fixed costs are $180,000.00. What is the break-even point? What is the maximum 
gross profit margin? 

Answer: Break-even at 9,945 units, maximum gross profit margin of 71.185% occurs at 246,752 units. 


2. With a unit price of $19.95, variable costs of $4.75, and fixed costs of $6800, how many units must 
be sold to break even? (No price or cost changes will occur. Use curve values of zero for both revenue 
and costs.) 

Answer: Break-even at 447 units. 


Program Listing 


190 FPRINT "BREAKEVEN ANALYSIS" 

270 REM -- THESE FUNCTIONS COMPUTE THE CURVATURE 

230 TIEF FN ACX) = - Lio ¢1 + ¢X £ 100)) / Liab (2) 
40 COEF FN BCX) = LOG (1 + ¢(X # 100)) / Lite (2) + 1 
20 JTIEF FN CX) = INT ¢€¢C¢CT1 ~ Te) ¥ T1) *# IES + O13) / 1000 
40 PRINT 

79 PRINT "ENTER THE UNIT PRICE "3 

m0) INFELIT tl 

YO FRINT "ENTER THE UNIT PRICE EROSION RATE " 

100 FRINT "(NEGATIVE VALUE MEANS REVENUE" 

105 FPRINT “DECREASES AS SALES INCREASE) "3 

110 INFUYT Lod 

120 Gl = FN ACL I) 

130 BI = FN BCL) 

140 PRINT 

130 FRINT "ENTER THE ANOQLUNT CF YARIGBLE CosTs FER" 
ae RRR OUUINI TOS 

140 INFUT V 

170 PRINT "ENTER VARIABLE COSTS LEARNING RATE" 

1s0 6FRINT "(NEGATIVE VALUE MEANS CcosTs DECREASE Am" 
165 PRINT “PRODUCTION DOUBLES) "3 

1?o INFUT Le 

ZOO AS = FN ACL) 

210 Be = FN Beil) 

22 PRINT 

220 FRINT “ENTER THE TOTAL AMOUNT OF FIXED" 

foe FRINT "aoosTs "3 

“AQ INFUT F 

2a) FRINT . 

“40 REM INITIALIZE LAST GUESS. LOW GUESS. HIGH GUESS 
270 € O 

20 LL 1 

“VO H 1E4. 
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mQ) 


4O0Q 
440 
ea 
40 
44a 
Aig 
Aad 
AFO 
4.30) 
Ayo 
BOC 
ma10O 
mie) 
FoI) 
tA 
matt) 
a bas Pa 
mata) 


=f) 


mt) 
at 
C0) 
410 
6320 
A0 
HAO 
Ai 
Ait) 
70 
fii) 
fC) 
bt 
700 
710 
rara®) 


70 


REM 


REM 
IF BE 
REM 


: os: 


IF 1] 
REM 
IF Tl 
= 
= K 
ly 


PRINT 
PRINT 
REM 

IF Li 
FRINT 
FRINT 


MALCULATE FOINT 
= INT 
YF NEW FPOINT = 


SET 


ALIULATE TOTAL 
TOTAL 
INT 
INT ((¥ # B 
BREAKEVEN FOINT FOUND 
REVENUE = 


ALIS T 


WSE THIS 
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WING BINARY SEARCH 


((L + H) / 


> 
LAST WOES. EXIT 
I THEN 4:0 
LAST GUESS TO NEW POINT 
REVENUE AND 
COSTS AT QUANTITY & 
CCll# Bo” Bl) + O12) 
™~ Be + F) + 0,5) 
IF TOTAL 
TOTAL 
THEN 4:30 
GWESS HIGH OR LOW POINTS, 
THEN 4230 


Cs TS 
= T 
TRY AGAIN 
» TS 


=1Q 


10 
REM BREARFEVEN POINT FOUND, 


OUTPUT RESULT 
"BREAKEVEN POINT = "ss" UNITS" 

"TOTAL FEVENUE AT BREAREVEN = $°3 Tl 
SECTION IF FIGURES ARE LINEAR 
“2 Lat THEN 270 

'TOSTS ANDO REVENUE ARE LINEAR. " 

"AI MAXIMUM GROSS PROFIT MARGEN FOSSTIBLE" 


tit &iO 


REM 
REM 
KEM 


(lo - 


Ti = 


Tz = 


PRINT 
ERINT 
FR INT 
PRINT 
FRINT 
PRINT 
FRINT 
PRINT 
FRINT 
PRINT 
PRINT 
INFLIT 
IF 7% 
IF 24 
END 


NUTRUT MAXIMUM GROSS 
MARGIN DATA 
SERIF THIS 
= INT ¢ 


PROF TT 

FOR NON-LINEAR VALUES 

SECTION IF FIGURES ARE LINEAR) 
Lom ¢€(F # (AL ~ 1)) / (Vi #® (AB 


EXF ¢ - AL))) # 


AZ)) + OO.) 
INT (Ub # B ™ 
INT (V # B 


Ei) 
Bt + F) 
"MAXIMUM GROSS 
UINITS Saeed Ht 5 EN 


PROFIT MARGIN AT 
mCCTI 


"2B 
- T2) / Tiys"%" 


"TOTAL 
"TOTAL 


REVENUE = $"3T1 
COSTS = 8"sT2 
"TOTAL PROFIT = $"3T1 - T2 
"WOWILD YOU LIKE TO RE-RLUN 
"WITH NEW DATA (Y/N) "3 

Z% 

= "Y" THEN 40 
<> "N" THEN 


THIS PROGRAM" 


fiat) 


NONLINEAR BREAK-EVEN ANALYSIS 121 


References 


Solomon and Pringle. An Introduction to Financial Management. Santa Monica, Calif.: Goodyear 
Publishing Company, 1977. 


Texas Instruments. Programmable 58/59 Calculator Business Decisions Library , Part number 1014984-9. 


122 


Payoff Matrix Analysis 


This program evaluates a set of alternatives, each of which has some measurable benefit, or ‘‘payoff,”’ 
subject to varying states of nature. Under different conditions, payoff amounts could be large or they 
could become losses. To analyze payoffs in conditions of uncertainty, this program employs three 
criteria: ‘‘maximax’’ (find the alternative with the highest possible payoff), ‘‘maximin’’ (the best 
alternative under the worst case), and ‘‘minimax regret’’ (the alternative which minimizes opportunity 
cost). 

To use this program, you should carefully consider your alternatives. They must relate to one another 
(for example, you have $20,000 and you want to know which of four types of investments is optimal to 
make, given varying states of the economy). You must be able to ‘‘guesstimate’’ what the payoffs will be 
(positive, negative or zero) for each alternative under each state of nature, as well as the probability of 
each state of nature’s occurrence. 

The computer will ask you how many states of nature to consider and how many alternatives exist. 
Then you will enter the payoff matrix row by row, starting with action 1 under state 1, action 2 under 
state 2, and so on. After you enter the matrix, you will input the probabilities of each state of nature. 
These probabilities are mutually exclusive, and they must add up to 1.0. The computer will ask you to 
reenter them if they do not add up to 1.0. 

The program shows you what choices are best under the maximax and maximin rules. The computer 
will optionally display the regret matrix. The optimal maximin regret choice displays, followed by the 
expected payoff values of each alternative. 


Program Notes 


The program allows for ten states of nature and ten alternatives. You can change this by modifying line 
20 of this program as follows: 


20 DIM S(N,A), M(A), R(N), X(A) 


Replace the expression N with the maximum states of nature, and A with the maximum number of 
alternatives. 


Example 


Fred wants to invest capital in the market. He sees his choices as stocks, Baa bonds or options. These 
three choices will pay off relative to how the economy behaves: 


State of Economy 
Investment Recession Stable Inflation 
Stocks — 20 65 200 
Baa Bonds 0 80 80 
Options — 300 0 300 
Probability 0.3 0.2 0.5 


How does Fred run the program? 
Answer: 


FAYOFF MATRIX ANALYSIS 


HOW MANY STATES OF NATURE * 
HOW MANY FOSSIBLE ACTIUNS * 
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PAYOFF OF ACTION 1 IN STATE 


1 ’; - 
FAYOFF OF ACTION 1 IN STATE 2 Y45 
FAYOFF OF ACTION 1 IN STATE 3 F200 
FAYOFF OF ACTION 2 IN STATE 1 YO 
PAYOFF OF ACTION 2 IN STATE 2 F&O 
PAYOFF OF ACTION 2 IN STATE 3 FSO 
PAYOFF OF ACTION 3 IN STATE 1 ¥-300 
PAYOFF OF ACTION = IN STATE 2 7O 
PAYOFF OF ACTION = IN STATE 3 300 
ENTER FROBARILITY FOR STATE 1 7.3 
ENTER PROBABILITY FOR STATE = 7.2 


ENTER FROBABILITY FOR STATE 
MAXIMAX PAYOFF OF 300 FROM ACTION 3 
MAXIMIN FAYOFF OF © FROM ACTION 2 


DO YOU WANT To SEE THE REGRET 
TABLE (Y/N) ?Y 


STATE 1 2 3 
ACTICN 1 20 15 100 MAX REGRET=100 


ALT ICN QO © 220 MAX REGRET=220 
ACTION 300 80 O MAX REGRET=200 


ft 


MINIMAX REGRET PAYOFF OF 100 
FROM ACTION 1 


EXPECTED VALUES ARE: 
FOR ACTION 12 107 
FOR ACTION =: 34 
FOR ACTION se 40 


OOo YOu WANT Ta RUN THIS PROGRAM 
AGAIN WITH DIFFERENT DATA (Y/N) ‘?N 


Practice Problems 


1. A business is considering a service agreement for its computer system. The service agreement costs 
$100 per month, and covers all repairs. Because the system is five years old, it may be necessary to repair 
it more often than in the past. Downtime for this system can be for minor or major repairs; the minor 
repairs averaging $140, and major repairs averaging $900. The probability of downtime requiring minor 
repair is 0.07; for major repairs, 0.08. What are the payoffs? 

Answer: maximax payoff (cost, in this problem): $0. Maximin payoff: $100. Minimax regret: $100. 
Expected value (cost) of service agreement: $100. Expected cost of no service agreement: $81.80. 


2. A market researcher is interested in gathering responses to an opinion poll in one day. The 
researcher is paid for each completed survey. The number of responses depends on the weather, 
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as shown below: 


Prevailing Weather 


Location Sunny Cloudy Rainy 
Beach 150 30 0 
Door-to-Door 40 70 90 
Flea Market 80 50 5 
Probability of weather: 0.5 0.3 0.2 


What are the optimal alternatives under each criterion? 

Answer: Under Maximax, option one with a payoff of 150; under maximin, option two with a payoff 
of 40; under minimax regret, option three with a maximum payoff of 85. Expected values: alternative 
1,84; alternative 2, 59; alternative 3, 56. 


Program Listing 


19 REM ANALYSIS OF A PAYOFF MATRIX 
SO DIM 8¢10,10),M(010),R010),X(10) 

20 FRINT "FAYOFF MATRIX ANALYSIS" 

40 FRINT 

20 FRINT "HOW MANY STATES OF NATURE "5 
&Q INPUT N 

70 FRINT "HOW MANY FOSSIBLE ACTIONS "3 
BO INFUT A 


YO FRINT 

100 FOR @ = 1 Tu A 
110 M(t) = — VEY 
120 FRINT 


i3O) FOR FP = 1 TON 

140 FRINT "FAYOFF OF ACTION "sis" IN STATE "SPs" "3 
150  INFUT 3(G.F) 

140 NEXT F 

170 NEXT o 

if0 REM ENTER PROBABILITIES FOR EACH 

if5 REM STATE OF NATURE 

170 Al = 0 

200 FRINT 

210 FOR @ = 1 TON 

220 FRINT “ENTER PROBABILITY FOR STATE "sti" "3 
2300 IMPUT Fi () 

240 Al = AL + FLCt) 

250 R(Q) = 0 

240 NEXT 

270 IF Al = 1 THEN 230 

20°  FRINT 

200 PRINT "-FROBABRILITIES 00 NOT Ann Ta 1.0-" 
300 PRINT " CHECK YOUR ENTRIES AND RE-TRY. " 
210 PRINT 

'0) GOTO 1.2o 

220 REM CALCULATE MAXIMAX & MAXIMIN VALUES 


340 Al = - YE? 
320 FOR t@ = 1 To A 
240 Qa = O 


270 REM REPLACE AS WITH THE HIGHEST FAYUFF 
230 FOR P = 1 TO N 
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sO) 
400 
410 
i ea a) 
430 
440 
4m) 
AAO 
470 
Aso 
43O 
SOO 
210 
me 


=e 


&2PO 
7OO 
710 
720 
730 
740 
7a) 
7EQ 
770 
70 
7?O 
SOO 
S10 


me CD 
herd 
AC) 
herban a] 
R40 


a7 OQ 


710 Al 
PEO Xt) 


= - YE? THEN 410 
S(0,F) << = 
Sly F) 


Al THEN 430 


FLT MINIMUM FAYOFF OF EACH ACTION IN MO) 
IF M(t) = - YE? THEN 440 

SCG, F) > = M(t) THEN 470 

(ity FD 

SAVE HIGHEST FAYOFF FOR REGRET TABLE 
e(QoF) < = ROCF) THEN 300 

= Cts F) 


"MAXIMAX FAYOFF OF "3A1l3" FROM ACTION "SA 


bo 


JED 


= 1 TOA 
IF M¢étt) <= Ail THEN 400 
MC) 


"MAXIMIN FAYOFF CF "“SA13" FROM ACTION "SAz 


nc YOU WANT To SEE THE REGRET" 
"TABLE (Y/N) "3 


At 
= "N" THEN 870 
co» "¥" THEN 430 


"STATE "3 TARC 10)3 


PRINT HEADINGS FOR TABLE 
= 1 TON 
PRINT Fs" "5 


= j] TOA 


"ACTION “stis TABC 10) 


REM FRINT REGRET VALUES 


= 1 TON 

PRINT RCP) -— SCG POS ONS 

IF RCP) - SCF) = = Al THEN 840 
R(F) - &(0,P) 


"MAX REGRET="sA1 


= 1 TO A 


= 1] Tu ON 

IF RCP) - S(H,F) <= = AL THEN #30 
R(F) - S¢,F) 

RCP) - SCP) 
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730 NEXT F 

740 NEXT & 

vo AL = O 

Y60 FOR P = 1 TO A 

770 IF F = 1 THEN ?voO 

“SO 06d UdXC FP) OU 6 AI THEN 1010 

790 Al = X(FP) 

1000 Az = F 

10910 NEXT F 

1020 PRINT 

190230 PRINT “MINIMAX REGRET PAYOFF OF "“SAl 
1035 PRINT "FROM ACTION "“sAz 

1040 FRINT 

1030 PRINT “EXPECTED VALLIES ARE: " 

1060 FOR F = 1 Ta A 

1070 Al = 0 

1080 FOR @ = 1 TON 

10970 Al = Al + (SC(F,.0) # Ficm)) 

1100 NEXT & ; 

1110 PRINT "FoR ACTION "sF3"s "3Al 

1120 NEXT P 

1120 FRINT 

1140 FRINT "GO Youll WANT To RLN THIS FROGRAM" 
1120 FRINT "AGAIN WITH DIFFERENT DATA (Y/N) "$3 
1140 INFUT As 

1170 IF AS = "YY" THEN 40 

1180 DF As = "AN" THEN L130 

1170 END 

Reference 

Cabot, A. Victor, and Harnett, Donald L. An Introduction to Management Science. Reading, Mass.: 
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Bayesian Decision Analysis 


This program revises probabilities (given multiple states of nature) according to Bayes’s Theorem for 
conditional events, and further evaluates possible actions by use of a payoff matrix. This technique 
applies to sampling for quality based on subjective probabilities you enter. 

To use this program, first enter how many possible states of nature there are; for example, an 
outgoing lot of products can have three possible outcomes: 99% good, 90% good, or 85% good. Then 
enter the number of conditional actions (for example, send out the lot, send out the lot and retool 
machines to correct defects, or rework the lot and retool the machines). The next set of entries is the 
payoff matrix. You enter payoffs (or costs as negative numbers) for each action, within each state of 
nature. Next, enter two probabilities for each state of nature; first, the “‘prior’’ probability that each state 
of nature occurs, and then the ‘‘conditional’’ probability based on the occurrence of that state. 

To illustrate, consider the three possibilities above: 99%, 90, and 85% good. These are conditional 
probabilities; in other words, ‘‘99% good”’ is a possible outcome of a production run. Therefore, if ‘‘99% 
good”’ is the present state of nature, then the probability of 99% is conditional based on being in that 
State of nature. The “‘prior’’ probability is the likelihood of that state of nature’s occurrence in the first 
place. Prior probabilities are often ““guesstimates’’ made by production personnel, based on experience. 

The last two entries are the size of the sample in question and the actual number of “‘successes’’ in the 
sample taken. In the example above, you may have looked at 50 pieces out of an outgoing lot of 1,000, 
and you find that five of them are defective. Enter 50 as the sample size, and five as the actual number of 
successes. The program then prints the expected values of each action, based on revised probabilities. 
You choose the optimal action from these values, which is usually that action which minimizes costs or 
maximizes payoff. 

After the expected values, the prior probabilities, likelihoods, joint and posterior probabilities print 
for each action. A final figure, the marginal probability, prints. This is the ‘‘unconditional’’ or expected 
success rate. You can go back and re-enter a new sample size (or enter zero to end the program). 


Example 


The quality control department at Fergis Bolt International estimates that bolts produced fall into three 
categories; 99% acceptable, 90% acceptable, and 80% acceptable. These three levels of quality occur 70, 
20, and 10% of the time, respectively. Roland Fergis II wants to impress his father with a comprehensive 
study which documents how much the company may lose by not making the right quality control 
decision. He puts together a payoff matrix which looks like this: 


Payoffs 
Actions If 99% If 90% If 80% 
good good good 

Send lot out — 1200 — 1800 — 2400 
Retool machines 
without rework — 1400 — 1600 — 2200 
Retool machines 
and rework — 2000 — 2000 — 2000 


The cost of producing the lot itself is $1,200. If the lot is sent out and the quality is less than 99%, 
Fergis will incur costs of returned merchandise. If they decide to retool the machines only, they will 
incur downtime, but the rate of returned merchandise will be lower for future lots. If the machines are 
retooled and the bolts are reworked, the lot will be 99% good no matter what. Therefore, the cost 
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remains constant. How would Roland Jr. run this program? What will be the optimal strategy-based 
payoffs if 46 of 50 bolts sampled are acceptable? 

Answer: The optimal strategy is to retool the machines, at an expected cost of $1,616.75. This sample 
has a 94.8% probability of being 90% free of defects. 


RAYESIAN DECISION ANALYSIS 


HUW MANY sTATES OF NATURE a 
HOW MANY CONDITIONAL ACTIONS Ys 


ENTER PAYOFFS FOR: 

ACTION 1 UNDER STATE 
ACTION 1 UNDER STATE 
ACTION 1 UNOER STATE 
ACTION 2 UNDER STATE 
ACTION 2 UNDER STATE 
ACTION = LINDER STATE 
ACTION 3 UNDER STATE 
ACTION 3 UNDER STATE 
ACTION 3 UNDER STATE 


Yo LEOO 
Y-LeE00 
2-2 A4OO 
Fe 1400 
Ye L600 
yee ZOO 
Po OOO 
Se OOO 


Fe BOOO 


Rie bo be ed pa oe 


it 


ENTER FRIOR AND CONDITIONAL PROB. : 
FOR STATE 1 7.77.39 

FOR STATE 2 7.2,.% 

FOR STATE 3 7.1,..8 


ENTER SAMPLE SIZE (O TO END) Fao 
ENTER ACTUAL NUMBER OF SUCCESSES 744 


GIVEN 44 SUCCESSES IN A SAMFLE 
MIF 30,THE EXFECTED VALUES ARE: 
ACTION Lf -1le0%, 42406 

ACTION SF -1416. 7a3e3 

ATION sti -2000 


PROBABILITY REVISIONS: 

STATE FRIOGR LIKELIHOOD JOINT POSTERIOR 
J af LE-O-s fE-O4 O18 

= es 21s W OG 274 

we al O13 1.3E-Om .Os4 
ENTER SAMPLE SIZE (O TO END) Yo 


Practice Problems 


1. In the example above, is the minimum number of acceptable bolts allowable in order to send the lot 
out without retooling machines? At this point, what is the probability that this lot is actually 99% free of 
defects? (Hint: Find the answer by trial-and-error. Enter a successively smaller number of successes 
until you get the answer.) 

Answer: The minimum is 48 out of 50, with an expected cost of $1,337.59. At this rate, it is 77.2% 
likely that the bolts are 99% free of defects. 


2. In the example above, does action 3 — rework the lot and retool the machines — become optimal? 
Answer: At 41 acceptable items from a sample of 50, the cost of $2,000 is less than the other two 
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alternatives (send out lot: $2,203.96, send out and retool: $2,003.96). At this point, it is 67.3% probable 
that the lot is 80% good. 


Program Listing 


1 PRINT " BAYESIAN DECISION ANALYSIS" 
2 PRINT 


10 


300 
301 
S20 
SO 
S40 
SO 
240 
370 
S3a0 
B70 
400 
410 
4270 
430 


DIM FPi(4),P2(4),F3(4),FP5(4),0(¢4,4),M(3) 
DEF FN Rt(Z1) = jINT (71 #* 1000 + 0.5) / 1000 
FRINT "HOW MANY STATES OF NATLIRE "$ 
INFLIT N1 
FRINT “HOW MANY CONDITIQNAL ACTICNS "3 
INFLUT Al 
FRINT 
FRINT "ENTER FAYOFFS Fors " 
REM ENTER PAYOFF MATRIX 
FOR I = 1 Ta Al 
FoR J = 1 To Ni 
PRINT “ACTION "$13" UNDER STATE “3.Is" "3 
INFUT ACI, 1) 
NEXT wl 
NEXT I 
PRINT 
XO = O 
FRINT "ENTER FRIOR AND CONDITIONAL FPROE. =" 
FOR J = 1 To Ni 
FRINT "FOR STATE "“$Is" "3 
INPUT F1CI),PS¢I) 
XQ = XO + FP1CI) 
Pis(I) = O 
NEXT I 
IF xo = 1 THEN 2:30 
FRINT “PRIOR PROBABILITIES DQ NOT EQUAL 1.0" 
GATTO 140 
FRINT 
FRINT “ENTER SAMPLE SIZE (9 TO END) "3 


IF = = 0 THEN 670 

PRINT 

FRINT "ENTER ACTUAL NUMBER OF SUCCESSES "3 
INFUT 11 

REM (CALCULATE EXPECTED CosT FoR SAMPLE SIZE 


MC1) = 3 
MCs) = Tl 
MCs) = & - JI 
For 2 = ] TO S&S 
IF MO.) = ©O THEN 420 
Z = 0 


FOR B= 1 TO MC.) 
Z= 2+ LOG (KE) 
NEXT EK 
MOI) = 2 
NEXT uw 
P4 = 0 
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450 FOR H 
457 REM 
440 = [1 
4645 PaCH) = 
4642 REM & 
470 FSCH) = 
474 REM & 
475 F 

430 NEXT H 
45° REM 
470 FoR I 
FQQ EC(I) = 
210 FOR J 
220 ECI) = 
S30 MEXT J 
ciuset NEXT I 
“40 PRINT 
S20 PRINT 
S40 PRINT 
S/O FoR I 
SeO FPRINT 
=!Q WEXT I 
400 PRINT 
410 FRINT 
420 PRINT 
430 FOR I. 
£40 FRINT 
£45 PRINT 
450 WNEXT I 
6440 GOTO 2 
470 END 
References 
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=} TO Ni 

STORE LIRFELTIHOOD IN FA) 

# LOG (PS2CH)) + (3 - Ti) * LOG (1 - P2CH)) 
FN RC EXF (MC1) -— M(2) - MOS) + Y)) 

TORE JOINT PROBABILITY IN Fs) 

PaCH) # F1CH) 

LIM FOINT PROBABILITIES IN Fad) 


ALCULATE EXFECTED MONETARY VALLES 
= 1 7TO Al 
Q 


= 1 TO Nt 


= EC(I) + (ACI) # (Pad) / F4)) 


"GIVEN "$Iis" SUCCESSES IN A SAMPLE" 
"OF "$53", "s"THE EXPECTED VALUES ARE: " 
= 170 Al 

"ACTION "sis": "sE(T) 


"PROBABILITY REVISIONS: “ 

"STATE PRIOR LIKELIHOOD JOINT FPOSTERIOR" 

= 1 TO Ni 

Is TAB 7)3F1¢1)3 TABC 1S)3FPaC1)3 

TAB( 22)3F3¢01)3 TABC 3O0)3 FN RCP SCI) / FA) 


40 


Cabot and Harnett. An Introduction to Management Science. Reading, Mass.: Addison-Wesley, 1977. 


131 


Economic Order Quantity 


The purpose of this program is to determine the economic order quantity of an item. You must enter the 
number of available price breaks, minimum and maximum quantities and unit price for each level, the 
inventory holding cost as a percentage of each unit’s cost, cost of placing an order (in dollars), and the 
annual demand quantity. The program will compute the EOQ of each price break and indicate if the 
quantity is within the minimum and maximum quantities for that level. 


Program Notes 


It may be more convenient for you to enter holding costs as a fixed dollar amount per unit. Make these 
changes: 


120 FPRINT “ENTER THE UNIT HOLDING Cost" 

Pan PRINT "(S) %"S 

200 H = H / 100 (QELETE THIS LINE) 
210 E = INT ( SOR ((2 # D # &) / HD) 


Your price breaks may be computed as a percentage discount from a fixed price. Make these changes: 


40 PRINT “ENTER THE NUMBER OF AVAILABLE PRICE" 
G5 PRINT "BREAKS "5 

70 INPUT B 

72 PRINT "ENTER THE BASE UNIT PRICE "3 

74 INPUT Ud 


80 PRINT 
90 PRINT “ENTER MINIMUM QUANTITY, MAXIMUM" 
95 PRINT "“GQUANTITY, DISCOUNT" 


100 FOR I = 1 To B 

110 FRINT “AT FRIIE BREAK "sts" "5 
120 INFUT GC1,7T),002,1),01 

Vs0O NEXT I 

140 PRINT 


Example 


Joe Blow, purchasing agent for a small manufacturer, needs to order motor armatures from a machine 
shop. The machine shop offers three price breaks to Joe’s company: 0 to 499 units, $5.00 per unit; 500 to 
999, $4.50 per unit; 1,000 and up, $3.90 per unit. Joe’s company requires 10,000 units each year. $20.00 
in clerks’ time and forms is needed to place an order. About 20% of each unit’s cost is spent on 
warehousing, shipping, breakage, and so forth. How many orders of how many units should be placed 
this year in order to minimize costs? 

Answer: Joe should place 15 orders of 666 units each. 
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ECONOMIC ORDER GUANTITY 


ENTER THE NUMBER OF AVAILABLE FRICE 
BREAKS 73 


ENTER MINIMUM GUANTITY: MAX IMLIM 
MUANTITY: PRICE 

AT PRICE BREAK 1 70,499, 5 
AT FRICE BREAK 2 BIOs ee A a 

AT FRICE BREAK ed dd 

ENTER THE UNIT HOLDING CosT 

(A FER UNIT) 320 

ENTER THE COST OF FLACING AN 

MROER (#8) 220 

ENTER THE DEMAND QUANTITY FER YEAR 
(O=END) S1LOO00 


Edt! # CF GHUANTITIES UNIT PRICE 


OROERS 
i a CO Ge Net FOSS IBLE 
£44 15 IO) GPP 4, 
71é 14 LOO0O—"EU9F 9--NOT POSS T BLE 


ENTER THE DEMAND WUANTITY FER YEAR 
CO=ENIN) FO 


WOULD YOU LIKE To RE-RUN THIS FROGRAM 
WITH NEW DATAYS CY/N) “FN 


Practice Problems 


1. Three price breaks: $2.50 per unit for 0-999 units; $2.25 each for 1,000-1,999 units; 2,000-9,999 
units cost $2.00 each. Cost of placing an order is $50.00, and holding costs represent 10% of an item’s 
cost. What is the EOQ if annual demand is 5,065 units? 

Answer: EOQ is four orders of 1,500 units each. 


2. Four price breaks: $89.00 each for 0-9 units; $82.50 per unit for 10 to 19 units; 20 to 29 units are 
$78.00 each; 30 and up are $75.00 apiece. Cost of placing an order is $75.00. Holding costs are 15%. What 
is the EOQ if annual use is 50 units? 

Answer: The EOQ is two orders of 25 units each. 


Program Listing 


10 PRINT "ECONOMIC ORDER GUANTITY" 


20 REM -- CHANGE SIZE OF ARRAYS t(C2,N) 
Ze REM --- AND UCN) AS NECESSARY WHERE N 
20 REM -- = MAXIMUM NUMBER OF PRICE 

aa 6 REM 06-6 BREARS YOU WILL USE 


40 DIM @(2,10),U010) 

HO PRINT 

60 PRINT “ENTER THE NUMBER OF AVAILABLE PRICE" 
G5 PRINT "BREQES "s 
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70 INFUT B 

sO PRINT 

20 PRINT "ENTER MINIMUM QUANTITY, MAXIMUM" 
98 PRINT “QUANTITY: PRICE" 

100 FUR I = 1 To B 

110 PRINT "QT PRICE BREAK "sis" "3 

120 INPUT (45,2) ,@¢2,1),U0T) 

130 NEXT I 

140 PRINT 

150 PRINT "ENTER THE UNIT HOLDING cOsT" 

155 PRINT "(% PER UNIT) "5 

140 INPUT H 

170 IF H > 0 THEN 200 

160 PRINT "HOLDING COST MUST BE GREATER THAN ZERO. " 
170 «GOTO 150 

200 H =H / 100 

210 PRINT "ENTER THE COST OF PLACING AN" 

215 PRINT "ORDER (#)"s 

220 INFUT 3 

230 PRINT "ENTER THE DEMAND GUANTITY PER YEAR" 
235 PRINT "(O=END) "5 

240 INPUT D 

250 IF D = 0 THEN 440 

240 PRINT 

#270 REM OUTPUT THE RESULTS 

#30 PRINT "EO # OF  GUANTITIES UNIT PRICE" 
235 PRINT " ORDERS" 

290 REM CALCULATE EO BY FORMULA FOR 

2975 REM EACH PRICE BREAK 

200 FOR I = 1 TU RB 

S10 E = INT (¢ SOR ((2 # D # S) / (UCT) # H))) 
S20 PRINT Et TAB( S)s INT (0 / E + O.9)$ TAR( 12031, 0)2"—"sa(2,1)3 
SZ5 PRINT TABR(C 23)sUCI)3 

330 REM TEST TO SEE IF £0 FALLS WITHIN 
335 REM ORDER QUANTITY FOR THIS PRICE 

240 IF (1,1) > E THEN 370 

S50 IF @¢2,I) < E THEN 370 

PRINT 

) GBOTo 400 

9 REM PRICE BREAK IS NOT AVAILABLE 

: REM AT THIS Et 

3970 PRINT "--NOT POSSIBLE" 

400 NEXT I 

410 FRINT 

420) GOTO 230 

420 REM RESTART OF END PROGRAM? 

440 PRINT 

450 PRINT “WOULD YOU LIKE TO RE-RUN THIS PROGRAM" 
455 PRINT "WITH NEW DIATA? (Y/N) "5 

440 INPUT Z4 

470 IF Z$ = "Y" THEN 50 

4s0 IF 7 < > "N" THEN 450 

450 ENE 


tee tat fa tsi 
it 
Ocak’ am 


m3 tt sy 


Fj 
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References 


Chase and Aquilano. Production and Operations Management. Homewood, IIl.: Richard D. Irwin, Inc., 
1977. 


McLaughlin and Pickhardt. Quantitative Techniques for Management Decisions. New York: McGraw-Hill, 
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Economic Production Quantity 


It is often useful to know the optimal quantity of an item to produce in order to minimize expenses. This 
program computes that quantity for a given item, and incorporates simultaneous sales calculations 
(where units are being sold while more are being produced). 

To use the program, enter the rate of production, the sales or use rate (the average number of units 
removed from inventory each day), the total number of units sold in a year, the holding cost (in dollars 
per unit), and the set-up cost. The program will output the optimal number of setups per year, and the 
optimum quantity to produce in each lot. The optimum quantity is that which minimizes set-up and 
carrying costs. 


Waldo’s Paint Factory produces several different paint colors using a single mixing and filling machine. 
The machine will produce 300 gallons each day, and currently Waldo ships 125 gallons of each color 
every day, and 35,000 gallons per year. Holding costs are $0.15 per gallon. For each lot produced, the 
machine must be completely cleaned, at a cost of $150. How many lots of each color per year should 
Waldo produce? How many gallons in each lot? 

Answer: Each year, Waldo should run three lots of 11,666 gallons each. 


ECONOMIC PRODUCTION GluAaANTITY 


ENTER THE RATE OF FRODUCTION 
CUNTITS/DAY) 3300 

ENTER THE SALES OR Usk RATE 
CLINITS/DAY) Piss 

ENTER ANNUAL SALES OF USE Yas0o00 


ENTER THE UNIT HOLDING Cost 
($ FER UNIT) Y.15 
ENTER THE SETUF COST (8) S10 


OFTIMAL NUMBER OF SETUPS = 3 
PER YEAR 
EFG= 11444 UNITS 


WOULD You LIKE TO RE-RUN THIS PROGRAM 
WITH NEW DATAY (Y/N) N 


Practice Problems 


1. Daily production of 45 units, daily sales of 20 units. Annual sales total 4,000 units. Holding costs are 
$0.67 per unit. Set-up costs are $25.00. What is the EPQ? 
Answer: Five lots of 800 units each. 


2.50 units per day are produced, 35 are sold. Annually, 6,500 units are sold. Holding costs are $0.45 
per unit. Set-up costs are $60.00 per lot. How many lots are optimum? What size lots? 
Answer: Three lots of 2,166 units each. 
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Program Listing 


10 FRINT “ECONOMIC PRODUCTION GuaANntTIry 

ZO PRINT 

20 FPRINT "ENTER THE RATE OF FRODUCTION" 

35 PRINT "CUNITS/OAY) "35 

4.0 INFUT R 

mt) IF R = 0 THEN 100 

40 PRINT 

7O PRINT "FROOUETION RATE MUST BE GREATER" 
7S FPRINT "THAN ZERC, " 

HO PRINT 

20 GOTO 30 

100 FRINT "ENTER THE SALES OR LUISE RATE " 

105 FRINT "(CUNITS/OAY) "S$ 

110 INPUT 

120 IF Uw > = 0 THEN 170 

120 ©60FPRINT 

140 FRINT “SALES (USE) RATE MUST BE NON-ZERQ., ' 
150 ©60FRINT 

140 O070 100 

170 PRINT "ENTER ANNUAL SALES OF USE "3 

180 INFUT H 

lO IF H > = LI THEN 240 

~OO PRINT 

210 PRINT “ANNUAL RATE MUST BE HIGHER THAN" 
215 PRINT "DAILY RATE. " 

220 0 60PRINT 

“30 GoTo 170 

“40 FRINT “ENTER THE UNIT HOLDING cost" 

S45 PRINT "(% FER UNIT) "3 

et) INFUT wl 

240 TF wo > O THEN 310 

2/70 PRINT 

~SO FRINT "HOLDING CosT MUST BE GREATER THAN ZERC, " 
270 PRINT 

700 GoTo 240 

310 FPRINT "ENTER THE SETUP COST (#) "3 

320 INFUT & 

2230 PRINT 

340 IF 53 > O THEN 350 

2350 PRINT "SETUP COST MUST BE GREATER THAN ZERa, " 
340 PRINT 

270 GWOT 310 

220 REM OUTPUT THE RESULTS 

270 N = INT ¢€ SOR (CC. # H) / (2 
400 FRINT "“OFTIMAL NUMBER OF SETUPS 
405 FRINT "FER YEAR" 

410 PRINT “EFGt= "$s INT (H / NOS" UNITS" 

470 FEM RESTART OF END FROGRAM? 

4730 PRINT 

440 PRINT "WOULD YOu LIKE To RE-RUN THIS FPROGRAM" 
445 PRINT "WITH NEW DATAS CY/N) "3 

4m INFLUT 2% 


m)) # C1 — (CU * Rd) + O15) 
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440 IF Z% = "Y¥" THEN 20 
470 IF 2% = & "N" THEN 440 
430 END 

Reference 


McLaughlin and Pickhardt. Quantitative Techniques for Management Decisions. New York: McGraw-Hill, 
1975. 
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Statistical Estimation Theory 


Statistical estimation theory is the science of determining unbiased estimates for various statistics from 
sample figures, establishing confidence interval estimates for those statistics, and determining the 
number of samples that must be taken to reduce the probability of error in these estimates to stated 
maxima. This program performs these calculations. 

At the start of the program you must enter the size of the sample, the mean of the sample, and the 
sample variance. The program then prints the unbiased estimate of the population variance and, for both 
the mean and the standard deviation, each of seven different confidence levels, the confidence interval 
estimate, and the maximum and minimum values produced thereby. You may then have the program 
calculate how large a sample you would have to take to reduce the error of your estimate to a given 
maximum. You enter the desired confidence level, the maximum desired error, and whether you are 
testing the mean or the standard deviation. The program then calculates the sample size needed. 


A government researcher did a study to determine how long people had to wait in line at the post office. 
He took 100 samples. The mean of the sample was 15 minutes, and the sample variance was 2.02. At each 
of the seven confidence levels, what is the maximum and minimum for the mean and standard 
deviation? How many samples would have to be taken to be 99% confident that the error in the mean 
was no greater than 0.2? 

Answer: 


STATISTICAL ESTIMATION THEORY 


ENTER NUMBER OF SAMPLES TAREN F100 
ENTER MEAN OF SAMPLE F153 

ENTER SAMPLE VARIANCE TS. Of 

LINBTASED ESTIMATE OF SIGMA SHUARED 
POPULATION VARIANCE = 2.04040404 
CONFIDENCE INTERVAL ESTIMATES FOR MEAN: 


CONFIDENCE FLUS OR 


MINUS MAX IMLIM MINIMLIM 
50) 07963445016 15.0946844 14, 703454 
40 $120217488 15. 1207195 14.8797805 
70 (148046977 15.148047. 14,851953 
a0 183060802 15.1830402 14. 8149277 
90 234955261 15. 2349554 14. 7450444 
75 LE7IVIGESRE LSLE79ILGG 14. 7200834 
99 267938199 15. 5479382 14. 4320618 


CONFIDENCE INTERVAL ESTIMATES 
FOR STANDARD DEVIATION: 


SO) JO6S1 249213 1.49655404 1. 2407002 
40 .O850080149 1,.51343514 1.34°341711 
70 104685021 1.53311214 1.3227421 
0) £129443181 1.5578703 1, 29808304 


STATISTICAL ESTIMATION THEORY 


YO ~14461383529 L1.574s65635 1, 26225859 
wv elP7PEE6273 1.6246397337 1, 23046085 
aod 240171575 Li68857872 1, 14825553 


Do YOU WANT A CALCULATION OF HOW LARGE 
A SAMPLE YOu MUST TARE Tot REDUCE 

THE ERROR OF YOUR ESTIMATE TO A 
MAXIMLIM QUANTITY? CY/N) 

TY 

ENTER YOUR CHOSEN CONFIDENCE LEVEL 
(FROM ABNVE CHOICES OUNLY).,1 FOR 20, 

= FOR 60, 3 FOR 70, 4 FOR 30, & FOR PO, 
6 FOR 23, AND 7 FOR 2? 


ENTER MAXIMUM DESIRED ERROR OF ESTIMATE 
70.2 

ARE YOL! TESTING THE MEAN (M) OR THE 
STANDARD DEVIATION (5) 7 

7M 

AT THE ?Y FERCENT CONFIDENCE LEVEL 

IT WOULUG BE NECESSARY To TAKE 33% 
SAMPLES To BE SURE THAT YOUR ESTIMATE 
CTF THE ERROR IN THE MEAN 

OlO NOT EXCeeo .2 

no YOU HAVE NO MORE CALCULATIONS (0), 
MORE WITH THE SAME SAMPLES (1). OR 
BRANII-NEW SAMPLING (2) 

70) 


Practice Problems 


1. Using the data from the above example, how many samples would have to be taken to reduce the 
error in the standard deviation to 0.0746353654 at the 99% confidence level? 


Answer: 1,204 
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2. If all the data is the same as in the above example, how many samples must be taken to reduce the 


error in the mean to 0.0995503798 at the 95% confidence level? 


Answer: 784 


Program Listing 


10 PRINT “STATISTICAL ESTIMATION THEORY" 
20° DIM 0(7)2F (7) 
25 PRINT 


ZY REM READ CONFIDENCE LEVELS AND COEFFICIENT= 


30 FOR I = 1 Ta 7? 
40 READ CCI),F CT) 
20 NEXT [ 


40 PRINT "ENTER NUMBER OF SAMPLES TAKEN "s 


72 INPUT N 
20 PRINT "ENTER MEAN OF SAMPLE "3 
70 INPUT X 
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100 FRINT "ENTER 2AMPLE VARIANCE" 
110 INPUT S2 
120 31 = S2 # N / (N - 1) 
130 PRINT "UNBIASED ESTIMATE OF SIGMA SHUARED" 
140 PRINT "PORFULATION VARIANCE = "351 
130 5 = SHR (S1) 
oo = & 4 SHR CN) 
27QO PRINT "CONFIDENCE INTERVAL ESTIMATES FOR MEAN: " 


210 FRINT "CONFIDENCE PLUS OR" 

220 PRINT " MINUS MAX IMUM MINIMUM" 

s20 FOR f = 1 To 7 

S40 PRINT ((T)3 TABC S)3FCI) # Sas TAB 20O)3X + FCI) # S33 TARC 31)3 
X - F(I) # &S2 

NEXT I 

FRINT 

FRINT “CONFIDENCE INTERVAL ESTIMATES" 

FRINT "FOR STANDARD DEVIATION: " 


rd Ud eld bat Lal 
10 wy oo oh 
‘ah et a 

om = — 


a 
Al 
hewn 
= 
—| 


400 FoR [ = 1 
410 | = FCI) # 
420 PRINT CCI 
4320 NEXT I 
440 FRINT 
420 PRINT "Do Youll WANT A CALCULATION OF HOW LARGE" 
440 FRINT "A SAMPLE YOU MLIST TAKE To REDUCE" 

470 PRINT "THE ERROR OF YOUR ESTIMATE Ta A" 

430 FRINT "MAXIMLIM QUANTITY? (CY/N)" 

470 INFUT B& 

“00 IF B& = "N" THEN 780 

210 IF BY <= & "YY" THEN 450 

220 PRINT “ENTER YOUR CHOSEN CONFIDENCE LEVEL" 

=O PRINT “(FROM ABOVE CHOICES ONLY).,1 FOR So," 

“40 PRINT "2 FOR 460, 3 FOR 70, 4 FOR 80, 3 FOR ?o," 
245 PRINT "& FOR YS. AND 7 FOR Fo" 

Sea INPUT J 

240 FPRINT "ENTER MAXIMUM DESIRED ERROR OF ESTIMATE" 
2/70 INFUT M 

—o PRINT “ARE You TESTING THE MEAN (M) OR THE " 
—70 FRINT "STANDARD DEVIATION (5) 7" 

400 INFUT CH 

410 IF C#& = "5S" THEN 480 

420 IF c& <= > "M" THEN &&o 

£40 Ns = INT ¢(¢(5 # FCI) 4 M) * 3) + 1 

450 GOTO 470 

650 NS = INT (CCFO) # S&S £ M) * 2 / SB) + 1 

6£70 PRINT "AT THE "st¢.03" PERCENT CONFIDENCE LEVEL" 
700 PRINT "IT WOULD BE NECESSARY TO TAKE "SN 

710 PRINT "SAMPLES To BE SURE THAT YOUR ESTIMATE" 
720 FPRINT "OF THE ERROR IN THE "3 

730 IF €8 = "S" THEN 740 

740 #FRINT “MEAN" 

720 GOTO 770 

740 PRINT "STANDARD DEVIATION" 

770 FRINT "DIO NOT EXCEED "3M 


f/ SOR (2 # N) 
) TAB( &)3.3 TABC 2O)55 + 5 TARC S1)35 - J 
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SO PRINT "D0 YOU HAVE NO MORE CALCULATIONS (0), " 
PRINT "MORE WITH THE SAME SAMPLES (1). OR" 

20 FPRINT "BRAND-NEW SAMPLING (2)°5" 

© INPFLUT Y 

© IF ¥Y = 1 THEN 440 

O IF Y = 2 THEN 40 

> DATA 30,0. 4744702424372 


tat f..3 {— Co * 
ie, 


“4 0 0 ON ON 
Cem) 


3 
— 
=~ 
_ 


710 DATA 6£0,0,841427142785714 
Y20 DATA 70,1.03464335334476 
720 DATA 80,1.2515515447516 
740 DATA Y0,1,.64485 34821705 
YEO DATA Fa.1l.27a7v4410254641 
Y60O DATA Py Se as eS 7h SO7 
v9 END 

References 


Harnett. Introduction to Statistical Methods. 2nd ed. Reading, Mass.: Addison-Wesley, 1975. 
Spiegal. Statistics. New York: McGraw-Hill, 1961. 
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Statistics 


This program analyzes grouped and ungrouped data which you enter, and prints as many as 26 Statistics: 
measures of central tendency, variance, skewness, kurtosis, and correlation. 

When you run the program, enter the total population (if known), or 0 (if unknown). If the data are 
grouped, enter G; if ungrouped, enter U. The next step is to enter the frequency, followed by the value 
observed at that frequency. After the last item, enter a frequency and value of 0. If you are entering 
ungrouped data, just enter the observations; enter 9E9 after the last one. The program then calculates 
and prints the statistics, indicating which are not available based on the data entered. 


Program Notes 


This program accepts a maximum of 250 grouped or ungrouped observations. To change this, modify 
lines 10 and 15 of the program as follows: 


10 DIM S(40), X(),Y(),Z(@ 
ISNI=I 


Replace the expression I with a constant equal to the maximum number of observations. 


Randy Flashpan is a local disk jockey. His weekly show has a segment during which listeners phone in 
their evaluations of certain songs by rating them on a scale of one to ten. One hundred listeners called in 
their scores on one record, and their scores are listed below: 


Score Number of Listeners 
l 13 
2 6 
3 2 
4 4 
5 10 
6 13 
7 22 
8 18 
9 10 

10 2 


In Randy’s lexicon, a song with a median score of seven or more is ‘‘boss hit-bound.’’ If the median is 
between five and seven, the song is classified as “‘lukewarm.”’ If the median falls below four, the record 
is dropped from the radio station’s playlist. 

Based on the sample data shown, how should Randy classify the record? Furthermore, how does 
someone with the intelligence of a disk jockey run this program? 

Answer: This song resides in the lukewarm category, with a median of 6.59. 


STATISTICS 
ENTER TOTAL FOFULATION (CO=UINENOWN) S100 


ARE DATA (IG) GROUPED OR (UW) UNGROUPRED YG 


STATISTICS 


ENTER FREGUENCY,: THEN VALUE 
(0,0 TO ENDED) 

PAIR NO. 1 Fissl 

FAIR NO. 2 Y4.2 


t 


- ra I Ri Nt “ a x ? os 

FAIR Na. 4 Y4,4 

PAIR NO. & $10.5 
PAIR NO, 4 Fis14& 
PAIR NO, 7 3a. 7 
PATR NO, & Fila. 
FAIR NO. Y 10. 


PAIR Na. 10 Fe.10 

FATR NO, il FoO,0 

RESULTS TABLILATED AS FOLLOWS: 

TOTAL POPULATION: 100 

QATA ARE: GROWRPED 

Nl. OF SAMPLES: 100 

SUP GF SAMPLES: Zier 

MEAN: &. Sa 

SUM OF SGWARES: 4077 

MEAN LEY IAT LOIN: ma L4]1 

MEQIAN: 4, S?o?voOv0O 

VARIANCES 4. 78107274 

STANTART LIEV IAT ION: we OOO ASS 

WINE TAS EC Eo T IMATE HIF YARTIANCEs 

i. SAVSIGIS 

= TANDARL DEVIATION LESSING THAT VARIANCE: 

we GI? 77 

PROBABLE ERROR: 1. 724640574 

STANDART ERROR OF MEAN: . 2417172327 

INMIEF RF. OF VARIATION: 444, 64445547 

SRO FOMENT ABMLIT MEAN: -—11. HAG Tal 

4TH MOMENT ABOLIT MEANS LOS, vaevaasy 

MOMENT CORFF, ‘SKEWNESS: AT ARASLOE 

MOMENT COEFF, EURTOST Ss: 2. 30473 458 

WNBTASED ESTIMATE SRO CENT. MOMENT: 
Ve. 3136735 

STANDARD ERROR MEAN WITH FINITE FPORPULA— 

TION CORRECTION FACTOR: © 

FEARSON’S 2@NO COEFF. SKEWNESS: 

—-, 9764605 023 

RANGE s 

INQEX OF MEAN DEVIATION To PRODUCT CF 

MoA.2.E. AND STANDARD DEVIATIONS: 

1. O3044707 


Practice Problems 
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1. Meter readings from a holding tank at a fuel processing plant are: 12.98, 13.001, 18.25, 4.4, 9.8, 11, 
14.5, 12.7, 7.2, and 6.1. What are the mean and median meter readings? What ts the standard deviation? 


Answer: The mean reading is 10.9931; the median is 11.85. The standard deviation is 3.98843859. 
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2. An actuarial clerk wants statistics on the population of Casper County relative to the occurrence of 
heart disease. The table below shows age brackets and the number of diagnosed heart disease cases for 
those ages: 


Diagnosed Cases 

Age (per 1000 people) 
0-5 6 
6-10 5 
11-20 3 
21-25 8 
26-30 7 
31-35 12 
36-40 17 
41-45 19 
46-50 30 
51-55 35 
56-60 43 
61-65 50 
66-70 61 


What is the median age of the onset of heart disease in Casper County? Twelve hundred cases were 
evaluated. What is the measure of skewness for this population, since it appears to be skewed to the right 
of the mean? What is the standard error of the mean? (Hint: You must increase array sizes on line 10 to 


300.) 


Answer: The median age is 58.1976744 for the onset of heart disease. Skewness — 1.26117836. The 
standard error of the mean is 0.903236727. 


Program Listing 


1 FRINT "STATISTICS" 

= PRINT 

190 DIM 3(¢40),X¢0250),Y°250),7¢250) 

14 REM NiI=DIMENSION OF X, Y & Z 

13 Nl = 230 

20 FOR I = 1 TO 40 

2? REM READ CONFIDENCE LEVELS AND COEFFICIENTS 
30 S¢€I) = © 

40 NEXT I 

45 S31 = O 

=O FRINT "ENTER TOTAL FORLILATION "3 
ceo PRINT "CO=UNENOWN) "3 

7QO INPUT TY? 

vo PRINT 

=O FRINT "ARE DATA (G6) GROUPED OR (LI) UNGROUFED 
70 INPUT Lis 

wa 6 OU RRINT 

100 IF Ut = "GG" THEN 440 

194 REM --- LNGROUFED DATA 

105 J = J 

110 PRINT "ITEM NO. "5.3" " 

11” REM —- ENTER VE? AFTER LAST ITEM 
120 =6oINPLIT X¢.1) 

130 #IF X(t) = > PE? THEN 130 

140 J = JI - 1 

145 GoTo 1?oO 

147 REM -—- CALCULATES No. OF ITEMS 
1530 53¢1) = s¢i) + 1 


STATISTICS 


i 
os 


“29 a tf 


moun. 


Nex = a on Be 


“SS 


bi Ot ba biba boro baka 


3 
_ 


Ga og og bb te 


on: 


v4 
ae | 
a 


SOO BS Boo 
oon 


LE 


On 


203 0203 03 bh to oo oo 
3 
tame 
Ld 


40 


REM 
S¢(x) 
REM 


3(4) 


REM 
5 (8) 
REM 
S93 ) 
REM 


5(€10 


REM 
o(11 
REM 


— 


m—! 
mnarrm es UN HU HT 


~ s 


a1) 


- CALCULATE 

a(S) + XCI) 
- CALCULATES THE SUM OF 
= (4) + XC.) # XCM) 


SUM OF ITEMS 


SHUARES 


t+ i 
ae 


© N1 THEN 110 
CALCULATES 
S(2) / S(1) 
- CALCULATES 
ABS (S03) 

- CALCULATES 
S(6) + S(5) 
- CALCULATES #RD POWER OF DEVIATION 

(XGN) = SCR) 7 5 
- CALCULATES SUM OF SRE 
S(9) + S(8) 
CALCULATES 4TH 
(XCI) - BCR) © 
CALCULATES SIM 
S(11) + S10) 
CALCULATES MEAN DEVIATION 
S(6) / (1) 
- USE SHELL-METZNER SORT TO 
- ARRANGE DATA IN ASCENDING 
S(1) 
INT (M1 / 2) 
= 0 THEN 270 
- M1 


-_— 


MEAN 


DEVIATION FROM MEAN 
- X(.4)) 
SUM OF DEVIATIONS 


FOWERS 


) = 


FOWER OF DEVIATION 
~ 4 
OF 4TH FOWERS 


) = 


OROER 


Mi 


I - Mi 
IF I > = M1 THEN 2320 
tl t+ |j 
IF wt > K THEN 292 
GOTO B15 
REM —- CALCULATE MEDIAN 


S¢1) 7 2S = INT (8¢(1) 7/7 2) THEN 410 
- ODO NO. OF ITEMS 
SC1l) / 2S + O58 


GOTO S40 


REM 
M = 
S¢1s 


GOTO 


KEM 


PRINT 


- EVEN NiO. OF ITEMS 


S¢1) / 3 


) = (XCM) + XCM + 1)) ¢ 2 
340 
---~— GROUPED DATA ---— 
"ENTER FREGUENCY,: THEN VALUE" 


PRINT "(0,0 TO END) " 


_t a _ 
PRINT 


1 
"PATR Nd. 


tes js # tle 
? 8 9 v 
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457 REM —- CALCULATE ABSOLUTE DEVIATION 
440 INPUT YC). Z¢01) 
470 IF Yt.) = O THEN Soa 
47 REM - CALCULATE NO. OF SAMPLES 
470 S¢1) = S¢C1) + YC) 
495 S1l = S1 + 1 
479 REM - CALCULATE TOTAL OF VALUES 
H0OQ0 S¢2) = S¢2) + ¥CI) # ZCI) 
207 REM - CALCULATE SUM OF SHUARES 
210 5¢4) = S¢(4) + ¥C.I) # ZCI) # ZO) 
—20 = I + I 
aot IF w= = Ni THEN 450 
a2? REM —- CALCULATE MEAN 
wea acs) = aCe) / acl) 
“40 FOR 1 = 1 TO S01) 
aa S°¢5) = YO.) * ABS (S03) -— ZI) 
REM - CALCULATE SUM OF ABS. DEVIATIONS 
e(&) = S(&) + 35) 
REM - CALCULATE SRO POWER OF DEVIATIONS 
SC3) = YC.) * (20) - SC3)) * & 
REM - CALCULATE SUM OF SRO FOWERS 
SC7) = S¢C7) + S¢(5) 
KEM CALCULATE 4TH FOWERS OF DEVIATIONS 
2C10) = YON) # (20) - SCa)) 7 4 
REM - CALCULATE SUM OF 4TH FOWERS 
SC¢11) = 3¢11) + &¢10) 


oe | 1 
Ay oa, 
1 eC 


“1° 1 SY SM mom 1 
—_ 


. m™ ..@ Mr . oo o 
Lm oS a Se 


mh 
a 
—_ 
an, 
Y 
— 


£1 
Aa 
mm 
= =< 
— 
Le 


~- CALCULATE MEAN DEVIATION 
BC7) = S(6@) / 31) 
REM - USE SHELL- METZNER SORT Ti 
REM —- ARRANGE DATA IN ASCENDING ORDER 
M1 = S1 
Mi = INT (M1 / 2&) 
IF M1 = © THEN 740 
ol - M1 
1 
I 
I + M1 
Z(I) =) = Z(L) THEN 710 
YC) 
= Z(T) 
YC(L) 
Z(L) 
Vv 
W 
- M1 


eS Ma 


Pepe Oo OO A Ln on 


. mm ft 
mb pos hh ha ha 


Ac ss LAS LS oo oo 
il 


RRR RR RE 


om) 
) 
oe! 


oS oh i] 
<=z< 

~ ms 

ms HU Ty i on 


< 
[~ 


US aS | 
7 in 
Ni 
— 
Hoi a tl 


iP oo i th oO 


= [ 

7O3 IF I > = 1 THEN 440 

710 J = JI + 1 

715 IF wt > KF THEN 4235 

720 GOTO 4535 

730 IF C8 = "S" THEN 740 

737 REM —- CALCULATES MEDIAN 

740 T= 0 

7320 KF = 1 

760 IF T + YCR) 3 S¢(1) / 2 THEN 800 


STATISTICS 


7&5 
770 
7a) 


735 


eI 


1000 
1010 
1020 
1020 
1040 
1020 
1040 
1070 
1020 
1070 
1100 
1110 
1115 
1120 
1130 
1135 
1140 
11350 
1155 
1140 
1170 
1180 
1170 
1200 
1210 

22Q 

20) 
1240 
1250 

240 
1270 


+ 


T + YCE) 
Sek +1 


GOTO 740 


IF k= = S(1) THEN 750 
PRINT "MORE WITH THE SAME SAMPLES (1), OR" 


P= ((Z(K) - ZOE ~- 1)) 7 YCR)) # C801) 7 2 - T) 


(12) = (Z(FE) + Z(E - 1)) / 2 +P 


N= S¢(1) 


FRINT "RESULTS TABULATED AS FOLLOWS: " 

PRINT "TOTAL POPULATION: "3 
IF TY = 0 THEN YOO 

PRINT TY? 

GOTO #10 

PRINT “UNENOWN/NOT INDICATED" 

PRINT 

FRINT "DATA ARE: "3 
IF Us = "G" THEN P30 

FRINT "UNGROUPED" 

GOTO #40 

FRINT "GROUPED" 

PRINT "NO. OF SAMPLES? "35(1) 

FRINT "SUM OF SAMPLES: "3 5¢2) 

PRINT "MEAN: "S$ 2¢3) 

FRINT “SUM OF SGUARES: "35¢ 
PRINT “MEAN DEVIATION: "3s 
FRINT "MEDIAN: "sSS¢is) 

S(13) = 3704) / N- SCS) * 2 
FRINT "VARIANCE! "35¢13) 
IF US = "G" THEN 1070 

SC14) = S€is) - (1 7 le) # (Z02) - Ze1l)) “ 2 
PRINT "VARIANCE WITH SHEP. CORR.: "35(14) 

S¢15) = SOR (SC13)) 

PRINT "STANDARD DEVIATION: "sS(15) 
IF US = "G" THEN 1120 

3(¢16) = SUR (5(014)) 

FRINT "STANDARD DEVIATION WITH SHEF. CORR. =: " 
PRINT 3(14) 

2¢17) = S¢€13) # N / (N - 1) 

PRINT "UBIASED ESTIMATE OF VARIANCE: " 

PRINT 3(¢17) 

S(¢1S) = SOR (5(17)) 

FRINT "STANDARD DEVIATION WSING THAT VARIANC 
PRINT 3(¢15) 

oC1l?) = .67449 # SCI) 

PRINT "PROBABLE ERROR: "s3s(1i%) 

S(¢20) = SHR (S017) / N) 

PRINT "STANDARD ERROR OF MEAN? "$5(20) 

S¢21) = S¢15) / SCS) 

PRINT “COEFF. OF VARIATION: "3100 # S(21)3 "4" 

S(22) = S(9) / N 
PRINT "SRO MOMENT ABDUT MEAN: "35(22) 

SB(23) = S¢11) 7 N 
PRINT "4TH MOMENT ABODLIT MEAN: "35(253) 

IF Lit = "G" THEN 1:300 

R= Z(2) - 21) 


147 
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1250 82°24) = SB¢235) - O.5 # (R * 2S) # SC17) + (7 ¢/ S40) # RR * 
1270 =PRINT "4TH MOMENT WITH SHEP. CORR, :" 

175 6 6OPRINT S(24) 

1300 S(25) = S¢22) 7/7 (5015) * 3) 

1310 PRINT "MOMENT COEFF. SEEWNESS: “ss(25) 

1320 S¢(26) = S023) / (98013) * 2) 

i320 0 ©6©PRINT “MOMENT COEFF. EURTOSIS: "soc 

13240 S(27) = (8022) # N* 2) 7 CON - 1) # (N - &)) 
350 PRINT "UNBIASED ESTIMATE SRO CENT. MOMENT: " 

Se PRINT 3(¢27) 

O JF T? = 0 THEN 1420 

oO TFN = = 0,05 # T? THEN 1420 

Oa¢2s) = S(20) # SOR CCT? -— N) / CT? - 1)) 

©O FPRINT “STANDARD ERROR MEAN WITH FINITE FORPLILA-" 
1400 FPRINT "TION CORRECTION FACTOR: "3S5(28) 

1410 GOTO 1430 

1420 FRINT "FINITE FORPULATION CORRECTION FACTOR N/A" 
1430 S(27) = 3 # (503) - S¢12)) ¢/ 8015) 

1440 FRINT "FEARSON’S 2NO COEFF. SKEWNESS: " 

1445 FRINT S(27) 

1450 IF Us = “"G" THEN 1480 

1440 S¢30) = X(N) -— X11) 

1470 wGoTa 1470 

1420 3¢30) = Z(51) -—- Z¢1) 

1470 FRINT "RANGE: "35¢30) 

1500 S¢C31) = &S¢7) / (. 77788435408 # 3S015)) | 

1210 PRINT “INDEX OF MEAN DEVIATION To PRODUCT OF" 
1220 PRINT "M.A.E. AND STANDARD DEVIATICN: " 

1225 FRINT 3¢31) 

1320 ©60ENED 


“OO Nios 


References 
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Unbiased Estimator of Standard Deviation 


The concept of an unbiased estimator of the standard deviation is not common among American 
Statisticians. However, according to the Russian mathematician A. A. Sveshnikov, the unbiased 
estimator of the standard deviation is given by the following formula: 


where 


Using this symbolism N = sample size, it is easily shown that: 


Kn = (M—1) (M—2) «= 


for N = 2M (even sample size), while for N = 2M+1 (odd sample size), 
— /{2M—-3.2M—-5.,.3.1 (M—1) (M—2)**:2- 1 
N~1 2 2 2 2*Vi N=l{ oM-1 
y) a fivi .2M—3... 3 JL 
2-1 Kn = 2 2 2° IV 9 


To use the program, you must enter the number of samples, and the sum of the squares of the 
deviations. The program prints out the unbiased estimator of the standard deviation, and asks if you 
want another calculation. 


Example 


In aclass of 35 seventh grade students, the sum of the squares of the deviations for their ages is 3.156. 


What is the unbiased estimator of the standard deviation? 
Answer: 0.30691769 


UNBIASED ESTIMATOR OF 
STANDARD DEVIATION 


THIS PROGRAM CALCULATES THE UNBIASED 
ESTIMATOR UF THE STANQARD DEVIATION 
WHEN VARIABLE IS NORMALLY DISTRIBUTED 


ENTER THE SUM OF THE ‘sMUARES 
OF THE DEVIATIONS 33.1546 
ENTER THE NUMBER CF SAMPLES Yas 


UNBIASED ESTIMATOR OF STANDARD 
DEVIATION = . 30671762 
ANOTHER CALICULATION?S CY/N) “AN 


Practice Problems 


149 


1. If 40 samples are randomly distributed and the sum of the squares of their deviations is 9.63, what is 


the unbiased estimator of the standard deviation? 
Answer: 0.500108775 


150 PRACTICAL BASIC PROGRAMS — APPLE Il 


2. In a group of 26 randomly distributed samples, the sum of the squares of the deviations is 34.953. 
What is the unbiased estimator of the standard deviation? 
Answer: 1.1943016 


Program Listing 


5 PRINT "UNBIASED ESTIMATOR OF" 

PRINT "STANDARD DEVIATION" 

S  FRINT 

10 PRINT “THIS PROGRAM CALCULATES THE LINBIASEL" 
20 PRINT "ESTIMATOR OF THE STANDARD DEVIATION" 
30 PRINT "WHEN VARIABLE IS NORMALLY DISTRIBUTED" 
40 PRINT 

SQ PRINT “ENTER THE SUM OF THE StIlGRES 

60 PRINT "OF THE DEVIATIONS "3 

700 INPUT & 

SO PRINT "ENTER THE NUMBER OF SAMPLES "3 

90  INFLT N 

99 REM COMPUTE K-SUB-N TERM 

100 A = SOR ((N - 1) / 2) 

110 FOR M = (C(N ~ 1) / #) - 1) TO 4 STEP ~ 1 
1z0 A=A*M / (M + 0.5) 

130 NEXT M 


~ 


Lio REM SORCPI) /B=, Soace,oess 
140 Fo = , SRA2o. 92s 


120 JF N 4 2 = INT (N 7 2) THEN 170 

1a" REM O00 SAMPLE SIZE 

140 F = 1 # F 

170 PRINT “UNBIASED ESTIMATOR OF STANDARD" 

130 PRINT "EVIATION = "3A # FF # SHIR CS / (N - 1)) 
1vO FRINT “ANOTHER CALCLILATION?S CY/N) "3 

200 INFUT YS 

2lO IF YS = "¥" THEN So 

2e2O END 


References 


National Bureau of Standards. Handbook of Mathematical Functions. Washington, D.C., 1966. 


Sveshnikov, A. A. Problems in Probability Theory, Mathematical Statistics and Theory of Random Functions. 
New York: Dover, 1968. 
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Chi-Square 


The chi-square test in statistics tests the compatibility of observed frequencies with the expected or 
theoretical frequencies. For example, suppose we are testing whether a die is fair or biased. We throw the 
die 60 times, recording the result each time. If the die is fair, we would expect that each of the six sides 
would come up close to ten times during the test. But we know that events do not always correspond to 
theoretical expectations. The chi-square test provides the means of determining whether the observed 
and theoretical results are so divergent that the die cannot be considered fair. 

Chi-square is defined as follows: 


where O represented the observed frequencies and E the expected frequencies. Statisticians have 
determined what value (the ‘‘5% critical value’’) the chi-square must be below in order that we be 95% 
positive that two results are compatible. This program tests whether the actual results fall within that 
level of confidence. It also employs Yates’s correction (which some statisticians prefer and some dislike) 
to test the results. The chi-square formula with Yates’s correction is 


K |O —E |— 0.5 2 
> I I 


I=] 


The program also tests whether the results are too good (below the 95% critical value), which makes 
clinical workers suspicious of the results. 

The program first asks if the expected frequency is a constant. In the above example, each face of the 
die is expected to appear ten times, so the answer is ‘“Yes’’ and you would enter ten as the constant. You 
then enter the observed frequencies one by one; enter 99999 after the last one. If the expected 
frequencies are not constant, the program will ask for each set of observed and expected frequencies. 
After the last entry, enter 99999, 1 to end the sequence. 

The program will then calculate the chi-square statistics, both with and without Yates’s correction, 
and print them out, indicating the degrees of freedom. It then tests each statistic against the 5% and 95% 
critical values, and prints out the results. 


Suppose the results of the 60 throws of the die in the above example are as follows: 


Face Expected Actual 
l 10 9 
2 10 8 
3 10 12 
4 10 10 
5 10 13 
6 10 8 


What are the results of the chi-square test for this data? Can the die be considered fair? 
Answer: The die can be considered fair. 
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HIT —SGulARE 


J THE ANQUNT OF EXPECTED FREGUENCY 
CONSTANTS CY/N) YY 

ENTER CONSTANT EXPECTED FREMUENCY S10 
ENTER OR SERVED FREGUENCIES ONE BY UNE 
AS REGUESTED BELOW 


ENTER eee? Th END 

310 

21 

MHI SEUARE FOR THESE 
MBSERVATICINS = 2.2 

FOR = DEGREES OF FREETICM 
SOLUIGRE = 1,025 


FIVE FERCENT CRITICAL VALUE OF 
CHI SWLIARE TS 11.071 

THEREFORE THE HYPOTHESIS [TS Nov 
REJECTED AT THE 242 CRITICAL VALUE 


Practice Problems 


1. A student in a genetics class is performing an experiment to test classical Mendelian theory. That 
theory predicts that certain biological characteristics should appear in the species under review in the 
ratios 900:300:300:100. In the 1,600 samples which the student takes, they appear 904, 297, 302, and 97 
times, respectively. Are these results compatible with orthodox Mendelian theory? 


Answer: The unadjusted chi-square result is 0.151111111, and with Yates’s correction that result is 
0.104444444 The 5% critical value for three degrees of freedom is 7.8147, so the results are compatible. 
However, the 95% critical value is 0.35185, so either with or without Yates’s correction, the results are 
‘‘too good,”’ and the instructor must view the student’s experiment with suspicion. 


2. A Las Vegas pit boss noticed that a particular roulette wheel seemed to be coming up red more 
often than black. He kept track of the next 1,000 spins; red came up 546 times, and black 454 times. Is 
the wheel biased? 

Answer: The chi-square without Yates’s correction is 8.46400001, and with it is 8.28100001. The 5% 
critical value is 3.8415, and the hypothesis is therefore rejected. The pit boss should junk that roulette 
wheel immediately. 


Program Listing 


10 FRINT "CHI-SQUARE" 

20 PRINT 

100 FRINT "IS THE AMOUNT OF EXPECTED FREQUENCY" 
110 PRINT “CONSTANT? CY/N) "3 

120 INPUT AG 

130 IF At = "N" THEN 300 

13S IF At = > "YY" THEN 100 

140 PRINT "ENTER TONSTANT EXPECTED FREGUENCY "'$ 
150 INFUT Y 


CHI-SQUARE 


aad 
300 
=10 
315 
S20 
tO) 
20 
370 
S70 
A400 
410 
4a 
FOO) 
210 
a1 
217 
ata) 
Eso 

1000 
1010 
1O20 
1030 
1040 
Lowy 
1100 
1110 
1120 
1200 
1210 
1220 
120 
1240 
1250 
1240 
1400 
1405 
1410 
1420 
100 
1210 
L220 
1400 
1410 


ogg 
2ald 
oO 
SS30 


a4 
L600 
2610 
2420 
2700 
2710 
2720 


SEIOO 


“in 2 


REM EXPECTED 
PRINT 


FREGUENCY [5 
"ENTER OBSERVED 
PRINT "A5 REQUESTED 
PRINT "ENTER 
INF LIT X 

IF 


A CONSTANT 
FREQUENCIES ONE BY ONE" 
RELCW" 

you? TO END" 


i ud 
on 
+++ il 
“~ ay pet 


ARS 
( ARS 
mA 


(X - Y) 
(X - Y) 
THEN 220 


“ 2) / ¥ 


~O.5) “ 2) 7 Y 


IF At = 
GOTO 320 
REM EXPECTED FREQUENCY I5 
FRINT "ENTER, FAIR BY FAIR AS REGUESTED, 
PRINT "CQHSERVED, THEN THE EXPECTED, " 
FRINT "FREQUENCIES" 
FRINT "ENTER ?972797%,1 TO END" 

INFUT X.Y 
GOTO S30 

PRINT "CHI-SQUARE FOR THESE" 

FRINT "OBSERVATIONS 
FRINT "FOR "sN - 135" DEGREES OF FREEDOM" 

FRINT "WITH YATES“S CORRECTION, CHI-" 

PRINT “SGUARE = "3 T 

REM BRANCH FOR CALCULATION OF CRITICAL VALUES 
IF N = 101 THEN 1400 

IF WN 101 THEN 13500 

IF N > 31 THEN 1400 

FoR J 1 TON - 1 

READ 

NEXT I 


NOT A CONSTANT 
THE" 


= "35 


FOR I = N To N + 2Y 


READ Of 
NEXT I 
GOTH S200 


W= 1.4449 # SOR (2 / (9 # (N- 1))) * 3 
C= (N- 1) * (1-2/7 (9 # (N- 1)) #W 
c= (N- 1) # (1-27 (7 # (N- 1)) -W 


GoTo S00 
124,342 

N= 77,7275 

GOTO 2Boo 


C= O.5 # (1.46449 + SOR (2 # (N - 1) - 1))) * 3 
D= 0,5 # ( SOR (2 7 (9 # (N - 1)) - 1.64497) * 2 


PRINT 
PRINT 


"FIVE FPERCENT CRITICAL VALUE OF” 

"THI-SHUARE IS "se 

THEN 2700 

~ THEN 2500 

_ D OR T <= OD THEN 2700 
"THEREFORE THE HYPOTHESIS 
"REJECTED AT THE 

yD 

FRINT "THEREFORE THE HYPOTHESIS oS" 

PRINT “REJECTED AT THE 34 CRITICAL VALUE" 

GOTO vey 


FRINT "WHILE THE UNADIUSTED CHI-SHLIARE" 


PRINT 
FRINT 
GOT 


Is NOT" 
24 CRITICAL VALUE" 
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2310 PRINT "VALUES ARE UNACCEPTABLE, THOSE WITH" 
S320 PRINT "YATES"S CORRECTION ARE NOT: THEREFORE" 
2330 FRINT "SAMPLE SIZES SHOULD BE INCREASED OR" 
2240 PRINT "SUBSTITUTE MULTINOMIAL DISTRIBUTION" 
PRINT “METHODS " 

GOTO vey 

FRINT "AGREEMENT IS Tod Goo AND SHOULD BE" 
PRINT "EXAMINED CRITICALLY, BECAUSE EITHER" 


—_ 
t 
—_ 


an, 
8 
—_ 


eo 3™, oo , ee, 
Cyt 


hips Oo & 0 
oS 


es be Pa bo Pa ba Po 


720 PRINT “WITH OR WITHOUT YATES"S CORRECTION, THE” 
730 PRINT "CHI SQUARE VALUE IS BELOW THE 54" 
740 FRINT LERTTICAL VALE" 
2900 DATA L2415,5, 7715, 7,8147,7,4877,11.071; ie mt 
2010 DATA 14. O47,15.507,146. 717,18. 207, iY. &73,21,.0286 
OS O DATA we, 262) 2S. GES, Saw PG BO. EG) 27, 7 23. 86 0 
“O30 DATA 30.140,31.410, 32,471,235, S74, 35.173, 34. 41 
“040 DATA 37,4653, 38,535 ,40.113,41.337,42.557,435. 773 
“O20 DATA J,O03%732,,102597, ,35185,.71072,1,1455 
2060 DATA 1 635.2. ATs Be 7331 B, BES 3. 940 
“O70 DATA 4.575.535, 22625,872,46.57127. 261 
2020 DATA 7,.%742,8,4672,7.370,10,117,10,851 
2070 DATA L1.Av1l, 12. 238,13,071,138.845,14.411 
12,.37721464.151,14.723,17.703,13.473 


5100 DATA 
woo = =©6OENTI 


References 
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This program determines the degree to which a forecast diverges from actual data. You enter pairs of 
actual data and corresponding forecast. After the last data pair, enter 99999,1. The program will then 
print out the number of pairs of figures, the total error, the total absolute error, the total squared error, 
the mean error, the mean absolute error (MAE), the mean square error, and the root mean square 
error. 


Example 


A Statistical forecaster determined the following data having made the following respective forecasts: 


Data Forecast 
] 1.0 

2 2.2 

3 2.9 

4 3.9 

5 5.3 

6 6.1] 

7 7.0 

8 7.9 


What are the error statistics for these figures? 
Answer: Number of pairs = 8; total error = 0.300000001; total absolute error = 0.899999999: total 


squared error = 0.17; mean error = 0.0375000001; mean absolute error = 0.1125; mean square 
error = 0.02125; root mean square error = 0.145773797. 
NATA FORECASTING DIVERGENCE 


ENTER DATA AND FORECAST 
Coos 1 TO END) 


7144 

2A, 9 

hh 1 

07,7 

299999, 41 

NO. OF PAIRS OF FIGURES = 2 

TOTAL ERROR = —. 200000001 

TOTAL ABSOLUTE ERROR = .2eee2ger9 
TOTAL ‘SHUARED ERROR = .17 

MEAN ERROR = -. 0275000001 


MEAN ABSOLUTE ERROR = .1125 
MEAN SMUARE ERROR = .O21725 
ROUT MEAN SGUARE ERROR = .145773777 
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Data Forecasting Divergence 


156 


Practice Problems 


1. The actual and predicted results in a city council race are as follows: 


Vote % 
Candidate A 40.3 
Candidate B 22.5 
Candidate C 16.3 
Candidate D 10.5 
Candidate E 7.2 
Candidate F 3.2 


How accurate were the polls? 


Poll % 
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Answer: Number of pairs = 6; total error ~ 0; total absolute error = 11.2; total squared error = 
32.0800001; mean error ~ 0; mean absolute error = 1.86666667; mean square error = 5.34666668; 


root mean square error = 2.31228603. 


2. A new television weatherman lasted only one week at the station. Following are the actual and 


predicted temperatures during that week: 


Actual 
Temperature 
Monday 74 
Tuesday 70 
Wednesday 58 
Thursday 60 
Friday 65 
Saturday 73 
Sunday 70 


What statistics were on the dismissal notice? 


Predicted 
Temperature 


49 
62 
75 
82 
37 
58 
92 


Answer: Number of pairs = 7; total error = 15; total absolute error = 137; total squared error = 
2955; mean error = 2.14285714; mean absolute error = 19.5714286; mean square error = 422.142858; 


root mean square error = 20.5461154. 


Program Listing 


10 PRINT 


i=) PRINT 
2O FRINT "ENTER DATA AND FORECAST" 
20 PRINT "Ceo, 1 To ENIIN)" 


40 INPUT X.¥ 


40 T1 = 

70 TH = Tx + X¥ - ¥ 

20 Ta = Ta+ ABS ¢(X - Y) 

70 T4 = T4 + ( ABS (X -—- Yo) 7 & 

100 God 40 

110 FPRINT "NO. OF PAIRS OF FIGURES = 
120 FRINT "TOTAL ERROR = "$3 TS 

130 PRINT "TOTAL ABSOLUTE ERROR = "3 TS 
140 PRINT "TOTAL SQUARED ERROR = "3 T4 
120 FRINT "MEAN ERROR = "3T2 / Til 

140 FPRINT "MEAN ABSOLUTE ERROR = "Tos, 
170 FRINT "MEAN SHUARE ERROR = "3;T4 / Til 
130 PRINT "ROOT MEAN SsGUARE ERROR = " 
170 866ENLD 


"ATA FORECASTING DIVERGENCE" 


ER 


Ti 


(T4 / T1) 


DATA FORECASTING DIVERGENCE 157 


Reference 


Gilchrist. Statistical Forecasting. London: John Wiley, 1976. 
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Newtonian Interpolation 


This program applies to Newton’s forward difference formula for interpolation of a given function. 
Newton’s formula is intended to work when the arguments you use in the interpolation commence just 
below the argument for which you are seeking the tabular value. 

You first enter the independent variables on either side of the value for which you want the tabular 
value interpolated, followed by that value (your desired independent variable). The program then asks 
for the precision (in decimal places) you want in your answer. This should not exceed the accuracy of 
either your original data, or your computer’s Basic. The program will cease calculating differences when 
they drop below this level of accuracy. 

You then enter the tabular values immediately below and above the desired tabular value. The 
program prints out the difference between these values, called the first difference. The program asks for 
additional tabular values, printing out the new difference each time, until the new difference drops below 
the level of precision you entered earlier. To end the entry of tabular values before this, you enter 99999 
as the new tabular value, and the program will branch to computation of the answer. 


Example 


Bill Miller is going to take out a five-year loan at 4'4%. He has a table that shows the factors by which 
he should multiply the principle of the loan to determine the amount of each monthly payment. 
Unfortunately, the table only gives figures at half-percent intervals. How should Bill use this program 
to determine the factor at 414%? 


Interest Rate Factor 
4% 0.018416522 
4’A% 0.018643019 
5% 0.018871233 
5% 0.019101162 
6% 0.019332801 
64% 0.019566148 
T% 0.019801198 
TAN 0.020037949 
8% 0.020276394 


Answer: 


INTERFOLAT ICN 
NEWTON’ S FORWARD DIFFERENCE FORMULA 


LOWER INDEFENDENT VARTABLE ¥.04 

UPPER INQEPFENDENT VARIABLE 7.045 
QNESTIRED INOEPENDENT VARIABLE *.0422 
PRECTSION (IN DECIMAL FLACES) ‘?Y 


ENTER TABLILAR VALUE AT .04 F.O018414642322 
ENTER TABULAR VALUE AT .O045 7.01844201% 


YIE-O4 


a Y,OL8S71 233 


1ST DIFFERENCE = 2, 244749 
ENTER TABLILAR VALUE AT .© 


ZNO DIFFERENCE = 1.71 700231E-04 
ENTER TABULAR VALUE AT .O5% Y.017101142 
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2RO DOTFRFERENCE = -1.?9241227E-0% 
INTERFOLATION Is Tit THE OROER UF 
SRO DIFFERENCES ANSWER = .OLSS2v55 48 


Program Problems 


1. Jeanne needs to know the sine of 0.63, using the following table. What is that figure? 


X | 0.6 0.7 0.8 0.9 1.0 
SIN X 0.564642 0.0644218 0.717356 0.783327 0.841471 


Answer: The sine of 0.63 is approximately 0.58919079. 


2. Joe Statistics wants to determine the area under the normal curve at 0.095 standard deviation to the 
right of the mean. From the following table, what is that area? 


Standard 
Deviations 


0.53188 


Answer: The area is 0.53784625. 


0.53586 0.53983 0.54380 0.54776 


Program Listing 


19 FRINT " INTERPOLATION" 

2£O FRINT "NEWTON? S FORWARD DIFFERENCE FORMULA" 
ze PRINT 

230 FPRINT " LOWER INDEPENDENT VARIABLE "5 
40 INPUT AC1) 

=O FRINT " UPPER INOEFENDENT VARIABLE "S 
£0 INPUT Az) 

70 FRINT "DESTRED INDEPENDENT VARIABLE ''s 
sO INFLT xX 

YO F = (XX - AC1)) ¢ (ACS) - ACI1)) 

100 PRINT "FRECISION (CIN DECIMAL FLACES) "3 
110 INFUT E 

WO IF E = 0 THEN 140 

130 € = 1] / (10 * E) 

140 J = |] 

120 PRINT 

140 Gosue 470 


170 J = 2 
Leo GOS 470 
vO IF Bti.dt) = Peeve THEN 200 


ZOO FOR JT = 2 Tu i 

210 BCI. - I + 1) = BCI - 1,0 - I + 2) - BCI - 1,0 - I + 1) 
2209 NEXT I 

230 PRINT 

240 FRINT wt - 13 

S20 GOS SOO 

260 FPRINT " DIFFERENCE = "s3BCI-1) 
270 IF &(.l,1) < E THEN 300 

Sea J = I + | 

270 IF <= = % THEN 1590 

300 7 = O 
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310 Fil = I 

220 X = ] 

330 FOR I = 1] To & 
=40 = X # I 


x 
S50 Pil = Fl # (FF - I + 1) 
Z= Z + Fl * BCI + 1,1) / X 
370 NEXT I 
BseaQ [TF ACs) > ACL) THEN 410 
sav70 Z = B(1l,.1) - Z 
400 GoTo 420 
410 Z = Bl1,1) + 2 
470 PRINT "INTERPOLATION IS Tot THE ORDER OF" 
430 PRINT wt - 13 
440 GOSswb SOO 
450 PRINT " DIFFERENCES ANSWER = "3Z 
440 G070 So 
44° REM SUBROUTINE TO ENTER TABULAR VALLIES 
470 FPRINT "ENTER TABULAR VALUE AT "sSAC1) + (1 - 1) # (ACS) -— AC1TIIF" US 
430 INFUT BC1,1) 
470 RETURN 
4977 REM ROUTINE To FRINT "ST". "NO", ETC 


SOO IF J < 2 2 THEN 520 
S10 PRINT "ST"s 
S20 IF J < > 3 THEN 540 
S30 PRINT "NE"s 
S40 IF J < > 4 THEN 540 


2a FRINT "RO" S 

240 IF J 2 3 THEN 380 
2/0 FRINT "TH"s 

aa RETURN 

270 END 


References 


Hildebrand, F.B. /ntroduction to Numerical Analysis, 2nd. ed. New York: McGraw-Hill, 1974. 
National Bureau of Standards. Handbook of Mathematical Functions. Washington, D.C., 1976. 


Phillips, G. M., and Taylor, R.J. Theory and Applications of Numerical Analysis. New York: Academic 
Press, 1973. 


Scheid. Numerical Analysis. New York: McGraw-Hill, 1968. 
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Lagrangian Interpolation 


This program applies Lagrange’s formula for interpolation to a given function. For each succeeding 
tabular value you enter, the program displays the corresponding difference. Starting with the second 
difference, you may either calculate the interpolated value or proceed to the next order of difference. If 
you go on, you have one more option at each succeeding order of difference, and that is to back up to 
calculate the interpolated value on the previous order of difference. This effectively lets you take an 
uncommitted look ahead to see whether the next order of difference is smaller than the present one. 
Thus, you need not choose the order of difference beforehand. The program permits three-point 
through ten-point Lagrangian interpolation. 

The program first asks you for the central argument, which is the argument immediately below the one 
you want. It also requests the next higher argument listed in the table, and your desired argument. You 
must then enter tabular values for the central argument and the arguments on either side of the central 
argument. The program calls these values f,, f,, and f _p respectively. 

At this point the program displays the first and second differences. You have the option of stopping 
here with three-point interpolation, or going on to the higher orders of difference. If you go on you must 
enter, one at a time, tabular values f,, f_,, f,, ..., f,. As you make each entry, the program displays the 
next higher difference. You must decide whether to stop and interpolate based on that difference, back 
up to interpolate on the previous difference, or proceed to enter another tabular value. You can only 
proceed as far as the ninth difference, since the program calculates at most a ten-point interpolation. 


Program Notes 
The program employs the algorithm set forth by Pearson for simplifying the Lagrangian coefficients, 
thus precluding the need for coefficient tables. The program also disregards the remainder term in 


Lagrange’s formula. Finally, the program does not perform two-point interpolation, since it is of little 
use. 


Using the following table, determine the sine of 1.00006 radians. 


Angle X Tabular Value Name of 
in Radians Sin X Tabular Value 
0.996 0.83930 30496 fy 
0.997 0.83984 62937 r, 
0.998 0.84038 86980 fy 
0.999 0.84093 02619 fy 
1.000 0.84147 09848 f, 
1.001 0.84201 08663 f 
1.002 0.84254 99058 f ; 
1.003 0.84308 81027 f 3 
1.004 0.84362 54565 f, 
1.005 0.84416 19667 f, 


Answer: 0.841795015 
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LAGRANGIAN INTERPOLATION 


ENTER THE CENTRAL ARGUMENT, NEXT HIGHER 


ARGUMENT, AND THE DESTRED ARGUMENT 
Y1.1,.001,1,. 0006 

ENTER FCO) 32841470785 

ENTER FC1) Y.€842010844 

ENTER F¢~-1) allied 
QIFFERENCE # 1 = 3,37551416-04 
QIFFERENCE # 2 = & ate MLFLIGE-O7 
Qo YOU WANT FURTHER QIFFERENCE 2 
CY/N) SY 

ENTER FCS) YS. S42 4e rod 
QIFFERENCE # 2 = 4,4546461287E-10 
WANT FURTHER DIFFERENCES? 
YESCY)., NOCN)», UNE LESS (lL) YY 
ENTER F(-2) Y. 840388498 
DIFFERENCE # 4 = 2,328 30644E-10 
WANT FURTHER DIFFERENCES: 
YESC¥)., NOON): ONE LESS (LD) FY 
ENTER FCS) Y.S4 3088102 
QIFFERENCE # 3 = 2, SSE SO644E-10 
WANT FURTHER DTFFERENCES + 
YESC(Y), NOON), ONE LESS CL) FN 
LAGRANGTIAN 4-FPOINT INTERPOLATION 
PRODUCES A VALUE OF 841775015 


Practice Problems 


1. What is the sine of 1.0001 radians? 


652 
565 
478 
390 
300 
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Answer: 0.841525014 
2. To ten places, the mantissas of the common logarithms of certain arguments are shown below: 
Argument Mantissa 
6.1242 0.787 0493 
6.1243 0.787 0564 
6.1244 0.787 0635 
6.1245 0.787 0706 
6.1246 0.787 O777 
6.1247 0.787 0848 


What is the common logarithm mantissa for 6.12449? 
Answer: 0.787069729 


Program Listing 


= PRINT "“LAGRANGIAN INTERFOLATION" 
7 FRINT 


19 DIM 0¢610,10),E010),F0190,10),N(04),.6010) 


12 GC1) = 1 
2O FC1l,1) = |] 


=? REM SET UF INITIAL TABLES OF VALUES 


20 FOR IT = 2 Ta 10 


209 


LAGRANGIAN INTERPOLATION 


40) 
EO 
M&O) 
Fianan 
7O 
0 
I) 
100 
110 


a ae 3 
bad 


47) 
OQ 
tO) 
210 


a 


F(I+1) 
FoR ot 
WF 
F(l,d) = ( ABS (FCI - lad - 1)) + ABS (FCI ~ 1..0)) * SGN 
NEXT . 
GCI) = G(l - 4) # €1 - 1) 
NEXT I 


= SGN (I 7 2 - INT (CF # 2) - .1) 
= 2 Tu I 
= INT (Cf + 4) 7 2) - CF + ot) 4 2S + 0.1 


FRINT "ENTER THE CENTRAL ARGUMENT: NEXT HIGHER" 
PRINT "ARGUMENT, AND THE DESIRED ARGUMENT" 
INFUT X1,X2.X3 


P= OX - XL) 4 CXS - X11) 


IF F <0 OR F > 1 THEN 100 
PRINT "ENTER FCQ) "3 

INFLUT D121) 

PRINT "ENTER FC1) "3 

INPUT [C2 1) 

PRINT "ENTER F(-1) "3 
INPUT [¢3,1) 


P¢l,2) = ARS (O(2,1) ~- OF1:.1)) 


PRINT "DIFFERENCE # 1 = "s0¢i,2) 


Ces 2) = ABS (NC3,1) -— OC1,21)) 
D¢l,3) = ABS (OC2,2) —- OC1,2)) 


PRINT "CUFFERENCE # 2 = "s0(1.%) 

REM GIVE OPERATOR OPTION OF STOPPING NOW OR CONTINUING 
PRINT "O00 YOL! WANT FURTHER DIFFERENCES?" 

PRINT "(Y/N) "5 


INFUT YS 


IF ¥Y# = "N" THEN S70 
IF YS <0 > "Y" THEN 270 
= I+ 1 
PRINT “ENTER F("3 
IF I / 2 = INT (1 / 2) THEN 3460 
PRINT "="5 
PRINT INT (2 / 2)e") "3 
INFUT [iC 1+1) 
FOR I= 1 7 1 - 2 


OCI -— Jot + 1) = ABS (OCT -— Jo+ doit) - OCT - wf - 1.) 


NEXT oJ 


QDci,Tt) = ABS (OC1,7F - 1) - Ote,I - 1)) 


FRINT "OQIFFERENCE # "st —-— i353" = "“so¢1,1) 
IF J = 10 THEN S10 
FRINT "WANT FURTHER DIFFERENCES?" 
PRINT "YESCY). NOON), ONE LESS¢l) "3 
INFUT Ys 
REM ORPERATOR MAY sTOrP NOW, CONTINUE, 
REM OR GO BRACE To ONE LESS OLFFERENCE 
IF Y# = "N" THEN S70 

IF YS = "Y" THEN “320 

IF Y$# = & "L" THEN 430 

=[- 1 

GOAT S70 

REM NO MORE THAN NINE DIFFERENCES FOoSSTIBLE 
PRINT "WANT NINTH DIFFERENCE (NN). OR" 
FRINT “ONLY ETGHT DIFFERENCE (BE) "S$ 


(WF) 
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a0 INFLT YS 
240 IF Y# = "N" THEN 370 
aa TF YS oe “"E" THEN S10 


rs 
ra 

a 
—! 

: fl 
f=} 

| 

a 


LINES S70 TO 430 SET UP VARTABLES 
7 REM USED IN FEARSON’S ALGORITHM 

Q =P“ 3 - P 

O NCS) = NO1) # (FP * & - 4) 
() = 
() 


rm 
mm 
MT 
= 


CAA A A 
tb om rr ba} rm o> 


im Oo Dod o& oh & oe mb 


NOs) # CF ™ & - 14) 
= ] TO 10 


be 

TF 

~ a: 
ns ae 
~ Aj 
Poa 


40 FOR . = 1 Ta I 

20 T = T + EC INT €€10 —- I) 7 S) + wt) # FCI 

40 NEXT oJ 

7O IF I f/f 2 = 2 INT CI 7 2) THEN 4670 

sO T = T # (F - I ¢/ &) 

"QO PRINT "“LAGRANGIAN "S13 "-FPOINT INTERFOLATION" 

700 PRINT “PRODUCES A VALUE OF "$T # NC INT (CT - 1) 7 2)) / GCT) 
710 END 


References 


National Bureau of Standards. Handbook of Mathematical Functions. Washington, D.C., 1966. 
Scheid. Numerical Analysis (Schaum’s series). New York: McGraw-Hill, 1968. 


Vega. Vollstandige Sammlung grosserer logarithmisch-trigonometrischer Tafeln. 1794. Reprint. New York: 
Hafner, 1958. 


= EC ABS (C11 -~- (.1 %# 2)) + SGN €C INT (.l 7 &4)),1) 7 (FP + a -. 
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Sums of Powers 


This program calculates the sum of the Pth powers (up to the 10th powers) of the first N integers. It will 
also compute the sums of powers which are not the first N integers, but instead a series of higher 
integers. For example, if you want the sum of squares of numbers 101 to 1,000, subtract the total of the 
first 100 squares from the total of the first 1,000. 


Program Notes 


Clearly, a simple algorithm exists for computing the sums of powers: a loop with provision for adding the 
successive powers obtained. When you want the sum of very lengthy series of integers, the methods in 
this program are more efficient. 


What is the sum of the first ten 7th powers? 
Answer: 18,080,425 


SLIM OF FOWERS 


THIS PROGRAM COMPUTES THE SUM OF THE 
F-TH POWERS (LIMIT: 190) FOR THE FIRST 
N INTEGERS. ENTER FP AND N ¥7,10 

THE SUM OF THE 7TH POWERS OF 

THE FIRST 10 INTEGERS IS 18050425 


Practice Problems 


1. What is the sum of the first 100 5th powers? 
Answer: 1.717083335 times 10". 


2. What is the sum of the first six 10th powers? 
Answer: 71,340,451.1 


3. What is the sum of the squares of the numbers from 101 to 1,000? 
Answer: 333,495,150 


Program Listing 


- FRINT "SUM OF POWERS" 

7 FRINT 

10 FRINT “THIS PROGRAM COMPUTES THE SUM OF THE" 
15° PRINT "P-TH POWERS (LIMIT? 10) FOR THE FIRST" 
20 FRINT "N INTEGERS. ENTER F AND "3 

30 INFUT PN 


= 
OQ) 
O) 


te 
PO ON fe 


wo 

100 
110 
120 
1:50 
140 
120 


140 5 


170 
1S0 
1YO 


ZOO 
210 


F 


I 
F 


PRI 


La 


F 


ie 
F 


5 
= 


moi of 


I 


FP « 


EM 


ZU UUDDDID VDA 


| rn | | 


NT 
oT 
N 
RINT 
ore 


RINT 
GOTO 
N 
GOTO 
( 


( 
GOT 


N 
GOT 


Ia 


me Po 


N 
GOT 
FRIN 
PRIN 
END 


Reference 


(iN * 


NT (FPF) 
1 OR FP > 10 THEN 10 
BRANCH TO FROFER FOWER 
THEN 20 
THEN 70 
THEN ?© 
THEN 110 
THEN 1:30 
THEN 120 
THEN 150 
THEN +10 
THEN 240 

10 THEN 270 

(N + 1) / 2 
"THE SLIM OF THE 
tat @) 
#%# (N + 1) # (2 # 
"THE ‘SUM OF THE 


EO 


“O00 NG UB to bie 


FIRST POWERS OF" 


& 


POWERS OF" 


N+ 1) / 
SECOND 


=) # ((N + 1) 
"THE SUM OF THE 
S80 
#% (N + 1) # (2 
370 


~“ 2) / 4 
THIRD FPOWERS OF" 
# N+ 1) # (3 


+ N "e, 


N= 2) * CCN + 1) 7 32) # (2 #N 7” S + 2 


GOTO 370 


d= (2 *# N + 1) & (2 *® N * 4+ & + N a 
= N # (N + 1) # S1 / 24 


270 


+ N ras 4 +. Ay 3 N of 


a ON 2 - 4% N + 
N * 2) # (CCN + 1) =) # S1 / 24 


2370 


= + N * + 15% +# 


% (N + 1) # (2 
370) 


ZeN*&6+48#N* 5S +N *74-G% NO 
N* 2) # ((N #1) * 2) * SL / 20 
370 
2 # NCB + 12 HNO 7 +B HN TH = 18 
S2- 10 *#N* 4+ 24%#N"* 34+ 28N% 
# (N+ 1) # (2 # N+ 1) # SI / 44 


2370 
"THE SUM OF THE “sP3"TH POWERS OF" 
"THE FIRST "SNe" INTEGERS I5 "35 


? 3 — 


+ 
+ 
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#*#N~ 3 -N* 2S + YP # 
os tN 7 2S + & #N - 
# N ™ & 

- 15 #* N+ & 


Chemical Rubber Co. Handbook of Tables for Mathematicians, 4th ed. Cleveland: 1970. 
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Factorials 


This program calculates the factorial of an integer. For the factorial of a small number N we recursively 
multiply the integers from 1 through N. For larger numbers this becomes impractical, and we instead use 
Stirling’s approximation: 


Nixze~NNN J INa 


This has very high accuracy for large N. 


Program Notes 


Note that for any given computer there is a theoretical limit beyond which overflow cannot be avoided. 


How much is 8!? 
Answer: 40320 


FACTORIALS 


ENTER THE NUMBER WHOSE 
FACTORIAL YOU WANT? 
THE FACTORIAL OF os [ss 
AOSSO 

TIMES 10 TO THE FOWER © 
COMPUTED RECURS IVELY 


Practice Problems 


1. How much is 100!? 
Answer: 9.32484812 x 10!’ 


2. What is the factorial of 20? 
Answer: 2.43290201 x 10' 


3. How much is 141!? 
Answer: 1.89702238 x 107% 


Program Listing 


— PRINT "FACTORIALS" 

7 FRINT 

10 FRINT "ENTER THE NUMBER WHOSE" 
15 PRINT "FACTORIAL YOU WANT" 

2O INFUT N 
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20 F 
0) 
a 
fat) 
70 F 
Pt a 
100 
110 
120 
120 
147 
120 
140 
170 


= F 
IF F : 
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= 1 


IF N => 6% THEN 120 
REM CALCULATE USING RECURSIVE ALGURITHM 
FOR IT = 2 TUN 


* [ 
. LE + 10 THEN 120 
=F / (1E + 10) 


wo LF +t 10 


NEXT I 
GOT 200 
REM CALCULATE LISING STIRLING’ S APFPROXIMATICIN 


. = INT (N / 3) 


I + & 
[I > Kk # & THEN 280 
(F # N ™ &) £ EXF (3) 
F> JE + 30 THEN 220 
Fo JE + 2O THEN 230 
GoTo 1~a0 
=m F / (1E + 20) 
= ,f + 30 


— 


be] 


c bole 
=F / (1E + 20) 
or + 3O 


10 
= SHR (N # 46,2821 82320715) 


"= (F # N* (N - EK o# S)) 4 EXF (N - Bo# 5) # X 


FRINT "THE FACTORIAL OF "SN3" Is" 

FRINT F 

FRINT "TIMES 10 To THE FOWER "3. 

IF E > O THEN [2340 

FRINT “COMPUTED RECURSIVELY" 

GOTO 370 

PRINT “COMPUTED BY STIRLING" S APFROXIMATIUN" 
F-ND 


References 


Korn & Korn. Mathematical Handbook, 2nd ed. New York: McGraw-Hill, 1968. 


National Bureau of Standards. Handbook of Mathematical Functions. Washington, D.C., 1966. 
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Temperature Conversion 


Chemists, physicists, and other scientists are constantly involved in taking temperatures in one scale and 
converting them to other scales. In science, temperatures are commonly recorded and manipulated in 
five scales: Fahrenheit, Celsius (formerly called centigrade), Réaumur, Kelvin, and Rankine. This 
program takes any temperature (above absolute zero) recorded in any scale and converts it into all four 
of the other scales. 


Example 
Convert 98.6° Fahrenheit into the other scales. 
TEMPERATURE CONVERSTICN 


WHAT IS THE TEMPERATURE WHICH 
YOL! WISH TO BE CONVERTED, ¥yvo.d& 
IN WHAT SCALE WAS THAT RECORDED: 
ENTER 1 FOR FAHRENHEIT, 2 FOR 
CELSIUS, 3 FOR REAUMUR, 4 FOR 
KELVIN,» 3 FOR RANKINE 1 


Po. & DEGREES FAHRENHEIT = 
a7 DEGREES CELSIUS 
ee & DEGREES REAUMUR 
310.1 DEGREES FELVIN 
aot. LE DEGREES RANE INE 


Practice Problems 


1. The boiling point of water is 100° Celsius. What is it on the other scales? 
Answer: 212° Fahrenheit, 80° Reaumur, 373.1° Kelvin, 671.58° Rankine. 


2. Lonna Keeps her hot tub at 104° Fahrenheit. How hot is it on the other scales? 
Answer: 40° Celsius, 32° Reaumur, 313.1° Kelvin, 563.58° Rankine. 


Program Listing 


=“ FRINT "TEMPERATURE CONVERSION" 

7 FRINT 

10 FRINT “WHAT IS THE TEMPERATURE WHICH" 
~O FPRINT "Yoll WISH TO BE CONVERTED? "$ 
20 INPUT T 

40 FRINT "IN WHAT SCALE WAS THAT RECORDED: " 
20 PRINT "ENTER 1 FOR FAHRENHEIT, 2 FOR" 
40 PRINT "CELSIUS, 3 FOR REALIMUR, 4 FOR" 
70 PRINT "KELVIN, 3 FOR RANKINE "3 

0) INFLUT & 

70 S = INT (5) 
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100 IF 3S = 1 THEN 40 
5 > 3 THEN 40 
1i” REM BRANCH ON TYFE OF SCALE 
: 1 THEN 1:30 
= THEN 170 
2 THEN 210 
4 THEN 230 
= THEN 270 
~ 427,58 THEN 420 


~ 
{4 
fs 
— 
TT 
sor i i i os 


140 Tl = T 

120 FRINT T."DEGREES FAHRENHEIT =" 

140 GO070 340 

170 IF T = - 273.1 THEN 420 

160 Tl = 322 + T # 1,8 

170 FPRINT T."DEGREES CELSIUS =" 

200 GOTO 320 

210 IF T = - 218.42 THEN 420 

220 Tl = 32 + T # 2.25 

2230 PRINT 7T."OEGREES REAUMUR =" 

340 0 ©6GOTO S20 

~oO IF T = O THEN 420 

260 T1 = B32 + 1.58 8% (T - 273.1) 

270 FPRINT 7T.,."DEGREES EKELVIN =" 

22006U GOTO Seo 

27Q JF T = O THEN 420 

300 Tl = 7 - 457,58 

310 PRINT T."OQEGREES RANEINE =" 

220 PRINT T1."DEGREES FAHRENHEIT" 

30 IF & = 2 THEN & 
PRINT & # (T1 - a2) / 9, "DEGREES CELSIUS" 

Q IF S&S = 3 THEN 380 

O PRINT 4 *# (Til - S23) / %, "DEGREES REAUMUR" 

IF 3 = 4 THEN 400 

©O FPRINT = # (Tl - 32) / ¥ + 3273.1,."DEGREES KELVIN" 

O IF S&S = 3 THEN 4350 

400 FRINT T1 + 4357.59, "QEGREES RANE INE" 

410 GoTo 4350 

420 FRINT “TEMPERATURE YoU ENTERED DOES NOT" 

430 FRINT “EXIST. PLEASE ENTER A NEW ONE" 

44Qo wGWwota 10 

470 END 


a) 


i i hh eo 


“41 1 SoS 
am 


Reference 


Lange. Lange’s Handbook of Chemistry, 10th rev. ed. New York: McGraw-Hill, 1967. 
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Numeric Base Conversion 


This program will convert numbers between any two bases 2 through 36. The program will continue to 
convert values from and to the same bases until you enter zero as the value to convert. Then you can 
enter a new base to convert to, still using the previously entered base to convert from. If you enter zero 
as the base to convert to, you must enter a new base to convert from. Enter zero at this point to end the 
program. 


Program Notes 


You may convert between a base greater than 36, as long as you define the characters to represent values 
greater than 35. To do this, add the character(s) you choose between the Z and the closing quotes in line 
30. For example, to convert to base 37, we’ll represent the number 36 with the character +. Change line 
30 so that it reads: 

30 N$= ‘0123456789 ABCDEFGHIJKLMNOPQRSTUVWXYZ#”’ 


Signs, decimal points, and any other characters you enter as part of the value to be converted that are 
not included in the chapter representations for the FROM base you selected are interpreted as zeros 
wherever they appear. 

Note that because the value you enter is converted to its base 10 value, which is stored in the numeric 
variable D, accuracy of the output value is limited by the accuracy of your computer. This is also true 
because of the repeated division used in the conversion process. 

You may encounter problems using this program on your computer because of the use of string 
variables. See the Appendix of this book for information on conversion of programs which use string 
variables. 


Example 


What is the base 16 number ABCD in base 10? What is the base 8 value? What is the base 36 equivalent 
of the base 10 number 825,062? 

Answer: ABCD base 16 is 43,981 base 10. The base 8 value is 125,715. 825,062 base 10 is HOME base 
36. 


NUMERIC BASE CONVERS ION 


FROM BASE (O TO END) F1lé 

TO BASE S10 

VALUE SABCT 

ABLO BASE 14 [5 42951 BASE 10 
VALUE “SO 

TO BASE Se 

VALUE SABCO 

ABCO BASE 14 15 125715 BASE & 
VALUE YO 

Tl BASE “FO 

FROM BASE (O Tl END) “10 

TO BASE Yad 

YALUIE SaSnO42 
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menO4>2 BASE 10 Is HOME BASE 34 
VALUE SO 

TO BASE SO 

FROM BASE (0 TO END) Fo 


Practice Problems 


PRACTICAL BASIC PROGRAMS — APPLE II 


1. What is the base 16 representation of the base 10 number 45? What is the base 8 representation? 


Answer: 45 base 10 is 2D base 16. 45 base 10 is 55 base 8. 


2. What is the base 32 representation of the base 18 number 1G6? What is the base 10 value? 


Answer: 1G6 base 18 is JA base 32. 1G6 base 18 is base 10. 


Program Listing 


10 PRINT "NUMERIC BASE CONVERS TON" 
2£O FPRINT 


20 NS = "OLS34546737ARCTEPGHI JELMNOPURS TUVWXYZ" 


40 REM -- VARIABLE “M° [5S THE HIGHEST 


45 REM -- BASE YO! MAY CONVERT FROM 7 Ti 


20 M = LEN (NS) 

40 FRINT "FROM BASE (O TO END) "3 

7QO INPUT Bl 

sO FEM -- END PROGRAM? 

70 IF Bil = 0 THEN 450 

JOO REM -- TEST FOR VALION INFUT BASE 
1190 IF Bl = 1 THEN 140 


120 PRINT “BASES 2 THROUGH "SMS "ONLY. SELECT AGAIN, " 


120 6 6GOTO 40 

140 IF Bil = M THEN 120 

120 PRINT "TO BASE "3 

140 INFUT Be 

170 TIF Be = © THEN 40 

120 REM -~ TEST FOR VALIO OUTPUT BASE 
i?OQ IF Be + 1 THEN 220 


200 PRINT "BASES 2 THROUGH "3Mi" ONLY. SELECT AGAIN." 


21lO GOTO 120 

2eO IF BS > M THEN 200 
2o0Q PRINT "VALUE "5 

240 INFLT VS 

229 [FF VS = "O" THEN 1350 


240 REM -- FIRST. CONVERT INFUT VALUE TO BASE 10 


2/O L = LEN (VS) 
EO E~l = O 

270 FOR [ = 1 TO L 
200 FOR wf = 1] TO Bl 


210 IF MI0S (N#$,1,1) << => MIDS (V$,1,1) THEN 
220 0 = O + INT (C.2 - 1) % (B1 ™ (Lo - [)) + O88 


a0 REM -—— NOW CONVERT BASE 10 VALUE TO 
soo REM -~- DESIRED OUTPUT BASE 
40 OF = 


mig) 


5) 
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o7QO X = INT €¢C¢CO #7 BS) - INT (0 7 BE)) # Be + 1.5) 
a0 U8 = MIDS (NS,X,1) + OF 

2/0 [To = INT (0 / Be) 

400 IF O + O THEN 370 

410 REM -- OUTPUT THE RESULT 

420 PRINT V#3" BASE "SBis" [is "S03" BASE "5 Bet 

430 REM --- LOOP BACK TO ENTER ANOTHER VALUE 

440 GoTo 220 

420) ENE 
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Musical Transposition 


In music, transposition is the art of playing music in a different key from that in which it was written. 
Some musicians can transpose by sight or by ear; others have to convert each note from one Key into 
another, laboriously, one by one. This program is for those in the latter group. The notes transposed by 
this program can be used as the roots of harmonies for piano, guitar, and so forth, as easily as they can be 
used as single notes. 

The program first displays all the keys and key signatures, comprising seven flats through seven 
sharps, with their identifying numbers. You enter the numbers for the keys from which and to which 
you are transposing. The program then displays each of the 12 possible notes, along with their 
transposed equivalents. 

Note that the program will in all cases print out the correct pitch of the note it is transposing to, and in 
virtually all cases the correct name as well. However, in those rare cases of some minor Keys with 
multiple accidentals, you may have to supply the alternate name where a double accidental (double sharp 
or double flat) is called for. 


Example 


What do notes in the key of B® become when you transpose to the key of G? 
Answer: 


MUSTCAL TRANSFOSTT TON 


IN THE FULLOWING LIST OF KEYS 
AND FEY SIGNATURES» 


1. A MAJOR ZF -SHARFP MINOR-2 SHARP 

we E-FLAT MAJOR /G-MINOR-S FLATS 

a. U-FLAT MAJOR/A-FLAT MINOR-7 FLATS 
B-MAJOR/G SHARP MINOR-S SHARES 

4, C MAJOR/A MINOR-NO SHARPS OR FLATS 


S. D-FLAT MAJOR/EB-FLAT MINOR-S FLATS 
C-SHARP MAJOR/A-SHARF MINGR-S 
SHARPS 

6. 0 MAJOR/E MINGR-2 SHARFS 

7. E-FLAT M@J0R/C MINOR-3 FLATS 

Ss. E MAJOR/C-SHARF MINOR-4 SHARES 

9, F MAJOR/D MINGR-1 FLAT 

10, G-FLAT MAJOR/E-FLAT MINGR-G FLATS 
F-SHARF MAWIOR/D-SHARF MINGR-<é 
SHARPS 

11. G MAJOR/E MINOR-1 SHARF 

12. A-FLAT MAJOR/F MINOR-4 FLATS 

ENTER THE NO. OF THE KEYS FROM WHICH 

YOU ARE TRANSPOSING, THEN THE NO. OF 

THE KEY TO WHICH YOU ARE TRANSPOS ING 

PH. 14 


MUSICAL TRANSPOSITION 


TRANSFOSITICN TABLE 
TRANSPOSED TRANSPOSED 
FROM TO 
A G-FLAT /F-SHARF! 
B-FLAT /A~SHARF G 
B (C-FLAT) A-FLAT /G—SHARF 


 CE-SHARF) A 
D-FLAT /-SHARF B-FLAT /A-SHARF 
u B (C-FLAT) 


E-FLAT /U-SHARF C (B-SHARF) 
E (F-FLAT) [-FLAT /(C-SHARF 
F (E-SHARF) rn 


G-FLAT /F-SHARF E-FLAT /DI-SHARF 
G E (F-FLAT) 
A-FLAT /G-SHARF F (E-SHARF) 


no YOU WANT ANOTHER TRANSPOSITION? (Y/N) 
?N 


Practice Problems 


1. In the key of G, the first chords of ‘‘My Country ’Tis of Thee”’ are: G, E™, C, D, G, E™, C, G, B’, 
E™. If it is transposed to E, what would these chords be? 
Answer: E, C#™, A, B, E, C*™, A, E, G*’, C#¥". 


2. Bach’s Fifth Brandenburg Concerto, written in D major, begins: D, D, F*, F* A, A, D, D, C* D, 
C* B, A, G, F* E. Ifhe had written it in C major what would these notes have been? 
Answer: C, C, E, E, G, G, C, C, B, C, B, A, G, F, E, D. 


Program Listing 


§ PRINT "MUSICAL TRANSPOSITION" 
7 PRINT 
10° DIM Ag(12) 
i? REM READ TABLE OF NOTES 
20 FOR I = 1 TO 12 
20 READ As(1) 
40 NEXT 1 
$0 DATA "A". "B-FLAT/A~SHARP":"B (C-FLAT)")"C CB-SHARF)" 
60 DATA "D-FLAT/C-SHARP", "Dl". "E-FLAT/O-SHARE":"E (F-FLAT)" 
70 DATA  "F (E-SHARF)". "G-FLAT/F-SHARP". "GG". "A-FLAT/G-SHARP" 
280 PRINT "IN THE FOLLOWING LIST OF KEYS" 
20 PRINT "AND KEY SIGNATURES, " 
OO PRINT "1. A MAJOR/F-SHARP MINOR-3 SHARP" 
PRINT "2. B-FLAT MAJOR/G-MINGR-2 FLATS" 
20 PRINT "3. C-FLAT MAJOR/A-FLAT MINOR-7 FLATS" 
2S PRINT " B-MAOR/G SHARF MINOR-S SHARPS" 
30 PRINT "4. © MAJOR/A MINOR-NO SHARPS OR FLATS" 


Per te te ed Oo Po 
: hie 

em! 

Son? 
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mt) 


AOQ 
410 
40 
AA 
470) 
AC) 
FOO 
mi 
10 
A220 
AO) 
710 
PO 
720 
740 
749 
Feni®) 
Patel 


eat 


FEM 
770) 
PaO 
770 
MOO 
210 
m0) 
SC 
mi 2.0) 
mF) 


mee) 


F 


[i 


it Ot 


f=" 


F' 


FRINT 
FRINT 
FRINT 
RINT 
FRINT 
FRINT 
FRINT 
FR INT 
FRINT 
FRINT 
FRINT 
FRINT 
FRINT 
FR INT 
FRINT 
INFLT 
FRINT 


IF A > 
IF A < 


PRINT 


GOTO 4. 


FRINT 
PRINT 
FRINT 
= © 
FE Ml 
FoR I 


— 
— 


IF 0D 
= 12 
PRINT 


PRINT 
2) 


NEXT I 
PRINT 


PRINT 
INPUT 
IF ¥# 
END 


References 


R-A+tI - 
* oO 


= Fo + 
IF F ¢# 
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D-FLAT MAJIOR/EB-FLAT MINUR-2 FLATS" 
" I-SHARF MAJOR/A-SHARF MPINGR-2" 

" SHARPS 

"&,. 0 MAIOR/ER MINOR-2S SHARPS" 

» E-FLAT MAJOR/C MINOR-S FLATS" 

» &— MAJOR/C-SHARF MINOR-4 SHARPS" 

» F MAIOR/O MINOR-1 FLAT" 

Q-FLAT MAJOR/E-FLAT MINOR-4& FLATS" 
" F-SHARP MAIOR/DI-SHARP MINUR-4&" 

" SHARPS 

"1. G MAIORZE MINGR-1 
"TS. A-FLAT MAJOR/F MINOR-4 FLATS" 
"ENTER THE NO. OF THE FEYS FROM WHICH" 
"YO ARE TRANSFOSING, THEN THE NO. OF" 
"THE FEY TO WHICH YOU ARE TRANSFOSITNG" 
A> 


SHARP" 


12 OR BRB > if OR A = 1 OR B= 1 THEN 420 
- BR THEN 710 

"ERROR, PLEASE ENTER AGAIN" 

=O) 

" TRANSPOSTTION TABLE" 

" TRANSPOSED" TARC 2003 "TRANSPOSED" 


TABC 4)3 "FROM": TARC 24): "Trt" 


PRINT TABLE 


= ] To 12 
SN ¢ 


THEN 740 


INT (CBR - A + I) / 12)) # Ik 


ASI )s 
1 


TABC 2O) 7 ACD) 


(Fo / 3) THEN #10 


"TW YOU WANT ANUTHER TRANSFOST TION? 
YS 


CY/N)" 


"Y" THEN 280 


Pistan. Harmony, 3rd ed. New York: Norton, 1969. 
Priesing and Tecklin. Language of the Piano. Boston: Carl Fischer, 1959. 
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Appendix 


Here in the appendix you will find suggestions for changing the programs to accommodate different 
output devices. 

We describe each of the specific changes listed below in a general way and illustrate wherever possible 
with an example taken from the book. You must decide how a suggested change would apply to any 
particular program, if at all. Therefore, you will need some understanding of Basic programming in order 
to implement these changes. 


Pausing With Full Display Screen 


Many programs have more lines of output than will fit on a typical screen. This means the first lines of 
output flash by quickly and scroll off the top of the screen, leaving you with no idea of what they 
contained. On the Apple II, you can press the CONTROL and S keys simultaneously to freeze the display 
temporarily. You can then review and record anything on the display. Subsequently pressing any key 
other than the CONTROL key sets the computer in motion. More program output appears. You may 
have to freeze the display several times in order to see all the output. The number of times you must 
freeze the display depends not only on which program you are running, but also on the nature of the 
problem you present it with. 

Alternatively, you can modify a program so that it pauses at one or more points during its output, 
waiting for the user to cue it to continue. To do this, add the following subroutine to the program, and 
call the subroutine at suitable intervals during the output phrase of the program. 


5799 REM WAIT FOR OPERATOR CUE 
5800 PRINT “CENTER ‘C’ TO CONTINUE” 
5810 INPUT W$ 

5820 RETURN 


This technique is used in the Income Averaging program. In programs where some or all of the output 
occurs inside a loop (for example, between FOR and NEXT statements), you may not be able to merely 
place calls to this subroutine between appropriate PRINT statements, as we did in the Income Averaging 
program on lines 1890, 2010, and 2110. In this case, use the subroutine below, which counts the number 
of lines displayed since the last pause. Each time you call this subroutine, it increments a counter, and 
tests to see if the new count exceeds the size of the display. If so, it pauses for the operator cue. 
Otherwise, it simply returns to the calling point in the program. Therefore, you would insert a call to this 
subroutine immediately after every PRINT statement that causes a line of output (that is, a PRINT 
statement not ending with a comma or semicolon). 


5797 REM SUBROUTINE CHECKS LINE COUNT 
5798 REM WAITS FOR CUE IF DISPLAY IS FULL 
5799 REM FIRST INCREMENT AND CHECK LINE COUNT 
5800 L9 = L9 + 1 

S810 IF L9 < 20 THEN 5850 

5819 REM SCREEN IS FULL — — 

5820 PRINT ““ENTER ‘C’ TO CONTINUE”; 

5830 INPUT W$ 

5839 REM RESET LINE COUNT 

5840 LI = 0 

5850 RETURN 
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Printer Output 


Viewing program output on the display screen is perfectly acceptable when you are using a program as an 
experimental or investigative tool. But sooner or later, you will probably tire of continually copying 
program output from the display by hand. The solution, of course, is to direct program output to a 
printer. The procedure for doing this varies from one Apple to the next. You can cause output to appear 
only on the printer by entering PR +I where I is the port your printer card is in just before you run a 
program. 


Changing the Precision of Rounded Values 


Many of the programs employ user-defined functions to round numeric values to a certain number of 
decimal places. For example, the Net Present Value program has a function on line 20 which does this: 


20 DEF FNA(X) = INT(X:100 + 0.5)/100 


This function rounds to the nearest hundredth, thus calculating the net present value to the nearest cent. 
The value 100 which appears twice in the function definition statement shown above determines how 
many decimal digits there will be (two in this case). To change the number of decimal digits, change both 
occurrences of the value 100, or whatever value is specified in the program you are considering. For 
example, the following replacement for line 20 will calculate net present value to the nearest whole 
dollar: 


20 DEF FNA(X) = INT(X-1 + 0.5)/1 
Or more simply stated: 
20 DEF FNA(X) = INT(X + 0.5) 


Frequency of Compounding Interest 


Several of these programs base their computations on interest compounded annually. This is acceptable 
in most cases. But you can have the calculations compound interest more frequently. Perhaps the easiest 
way to do this is to convert the annual interest rate to the effective interest rate, based on the number of 
compounding periods per year. Then enter this effective rate when the program asks for an interest rate. 
The general formula for this is 
7 \NY 
E= ( + N 


where E is the effective interest rate, I is the annual interest rate expessed as a decimal fraction, N is the 
number of compounding periods per year, and Y is the number of years. The formula for continuous 
compounding is: 

E = elY 


where E is the effective interest rate, e is 2.718281828... (the base of natural logarithms), I is the nominal 
interest rate, and Y is the number of years. 

Of course, you can change a program to accept the nominal interest rate and convert it automatically 
to the effective interest rate. The program would have to ask for the number of compounding periods 
per year in order to make the conversion. Alternatively, you could restate the interest compounding 
calculation in the program so that it compounds at the desired frequency. For example, this calculation 
occurs in the Future Value of an Investment program on line 240. If you restate line 240 as shown below, 
the program will compute the future value of an investment at growth rate R, compounded 
continuously. 


240 T=T +FNA(C(J)*EXP(R*N—J))) 
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